另一個棘手的問題。我有一個清理的數據集與另一個宏,我需要遍歷列標題和每一行,在第一列中合併具有相同標題名稱的列的值,由;
當列標題相同時合併所有行中的值
示例數據:
Test Country Test Country
123 456 789 012
abc def ghi jkl
mno pqr stu vwx
所需的輸出:
Test Country
123;789 456;012
abc;ghi def;jkl
我已經試過這樣的事情,這肯定沒有工作:
Dim i As Long
i = 1
j = 1
Do Until Len(Cells(i, j).Value) = 0
If Cells(i, j).Value = Cells(i, j + 1).Value Then
Cells(i, j).Value = Cells(i, j).Value & ";" & Cells(i, j + 1).Value
Rows(j + 1).Delete
Else
i = i + 1
j = j + 1
End If
Loop
你知道你的列與喜歡頭像嗎?如果您知道您的列範圍,請嘗試使用'.Offset()'。 (如果你知道A1是測試,C1是測試,你可以循環A中的所有內容並將它與C連接) – Tyeler
謝謝,我不知道列範圍,它們沒有硬編碼,所以我需要循環並總是在名稱上匹配 – MJ95
這可能會很有趣!你有沒有嘗試循環通過兩列for循環的列+行?像'For Each column in colRange' //'For Each row in rowRange'然後做一個比較/連接? – Tyeler