加辅助列轻松解决，把问题作为内容（游舰主题一定要包含“excel”,本人以此为依据辨别非垃圾游舰，以免误删）,excel样表文件（尽量详细说明现状和目标效果）作为附件发到一流3油香：yqch134帮你看下
温馨提示：答案为网友推荐，仅供参考
第1个回答 2021-03-15
复制，然后粘贴时选择“转置”
第2个回答 2021-03-14
拿去，运行这个宏代码
Sub aa()
Dim i, k, x
For i = 2 To Range("a65536").End(xlUp).Row
x = WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(i, 1)), Cells(i, 1))
If x = 1 Then
y = WorksheetFunction.CountIf(Range("a:a"), Cells(i, 1))
Z = WorksheetFunction.CountA(Range("l2:cz2"))
Range(Cells(i, 1), Cells(y + i - 1, "j")).Select
Range(Cells(i, 1), Cells(y + i - 1, "j")).Copy Cells(2, Z + 12)
End If
Next
End Sub本回答被提问者采纳
Sub aa()
Dim i, k, x
For i = 2 To Range("a65536").End(xlUp).Row
x = WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(i, 1)), Cells(i, 1))
If x = 1 Then
y = WorksheetFunction.CountIf(Range("a:a"), Cells(i, 1))
Z = WorksheetFunction.CountA(Range("l2:cz2"))
Range(Cells(i, 1), Cells(y + i - 1, "j")).Select
Range(Cells(i, 1), Cells(y + i - 1, "j")).Copy Cells(2, Z + 12)
End If
Next
End Sub本回答被提问者采纳