Macro của bạn đây, xin mời:
Mã nguồn PHP:
[COLOR=#000000]
Option ExplicitSub Chép[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Arr[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet Dim Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long3 Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Table2"[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Table1"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select5 Rws [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]B2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count Arr[/COLOR][COLOR=#007700]() = [[/COLOR][COLOR=#0000BB]B2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value7 Dg [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1 Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"B"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]()[/COLOR][COLOR=#0000BB]End Sub [/COLOR]
Ghi chú: Ở trang tính [Table1] ngoài cột [STT] ta có 7 cột dữ liệu
Chúc bạn thành công & vui vẻ!
Du lịch Indonesia - Nếu bạn đang tìm kiếm những cảm giác mới lạ thú vị thì "xứ vạn đảo" Indonesia sẽ là một sự lựa chọn không thể bỏ qua. Indonesia với hàng ngàn đảo lớn nhỏ, cùng những cảnh quan...
Tour du lịch Indonesia được Dulichviet tổ chức đặc sắc như thế nào?