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ẻ!
TheGioiGames.VN là đơn vị hàng đầu trong lĩnh vực nhập khẩu và phân phối các sản phẩm công nghệ tiên tiến. Chúng tôi chuyên cung cấp đa dạng các sản phẩm như kính thực tế ảo, máy tính, máy tính bảng,...
TheGioiGames.VN - Điểm đến hàng đầu cho máy tính bảng, kính thực tế ảo và các thiết bị Android TV