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ẻ!
Giá thu hẹp vùng kín và thu hẹp vùng kín ở đâu tốt nhất Đà Nẵng? Đây là chủ đề được rất nhiều chị em quan tâm, trong quá trình tìm hiểu để làm đẹp vùng tam giác nhớ thương của mình. Hãy cùng tìm hiểu...
Khám phá nơi tốt nhất ở Đà Nẵng để tiến hành thu hẹp vùng kín: giá cả và chất lượng