我有一個包含 2 列資料的電子表格。在這 2 列中，有包含聯系人記錄的重復資訊塊。他們有一個一致的模式。
這是模式：
我正在尋找一種方法將此資料復制到新的 Excel 選項卡中，每個聯系人記錄一行：姓名、地址、單位、相互、電話號碼
有誰知道通過函式或宏來做到這一點的方法？
謝謝！
uj5u.com熱心網友回復：
這個宏可以解決問題。只需確保包含源資料的作業表在運行時處于活動狀態。
Sub copy_data()
Dim source As Worksheet
Dim dest As Worksheet
Dim r As Long
Dim row As Long
Set source = ActiveSheet
Set dest = ThisWorkbook.Worksheets.Add
dest.Cells(1, 1).Value = "Name"
dest.Cells(1, 2).Value = "Address"
dest.Cells(1, 3).Value = "Unit"
dest.Cells(1, 4).Value = "Mutual"
dest.Cells(1, 5).Value = "Phone Number"
r = 1
row = 1
Do Until source.Cells(r, 1).Value = ""
row = row 1
dest.Cells(row, 1).Value = source.Cells(r, 1).Value
dest.Cells(row, 2).Value = source.Cells(r 1, 1).Value
dest.Cells(row, 3).Value = source.Cells(r 1, 2).Value
dest.Cells(row, 4).Value = source.Cells(r 2, 1).Value
dest.Cells(row, 5).Value = source.Cells(r 2, 2).Value
r = r 3
Loop
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/444549.html
上一篇：npm自行卸載后如何安裝？
下一篇：需要想法如何決議以下JSON格式