[已解决]怎么可以把一行多单元格搞成一列多单元格，

就叫铁锤把

Sheet1变成Sheet2

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-5-18 19:22

Sub demo()
   a = Sheet1.UsedRange
   With Sheet2
      .[a:a].ClearContents
      For i = 1 To UBound(a)
         For j = 1 To UBound(a, 2)
            If a(i, j) = "" Then Exit For
            r = r + 1
            .Cells(r, 1) = a(i, j)
         Next
      Next
   End With
End Sub


祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

就叫铁锤把

为了方便我截图出来了，就是把第一个图 如何才能搞成第二个图

就叫铁锤把

如果有会的大佬看到帖子了教一教把，每天都有一千多个这样的。真的头皮麻了

cutecpu

Sub demo()
   a = Sheet1.UsedRange
   With Sheet2
      .[a:a].ClearContents
      For i = 1 To UBound(a)
         For j = 1 To UBound(a, 2)
            If a(i, j) = "" Then Exit For
            r = r + 1
            .Cells(r, 1) = a(i, j)
         Next
      Next
   End With
End Sub


祝順心，南無阿彌陀佛！

aidunsoft

如果列数是固定的，也可以一行拆分成多个表，再横向合并，再转置

bridgeyao

Sub test()
Dim ar, br(1 To 100000), k As Long
With Sheet1
    For i = 1 To Sheet1.UsedRange.Rows.Count
       ar = Range(.Range("a" & i), .Range("a" & i).End(2))
       For j = 1 To UBound(ar, 2)
          k = k + 1
          br(k) = ar(1, j)
       Next
       Erase ar
    Next
End With
Sheet2.[b1].Resize(k) = Application.Transpose(br)
End Sub

bridgeyao

见附件