有什么方法可以快速将B列数据插入A列数据么？

wangdi0715 · 发表于 2020-1-26 23:12

有什么方法可以快速实现上图操作么？

varytina · 发表于 2020-1-27 08:54

提供一个Power 的方法供楼主参考

varytina · 发表于 2020-1-27 09:05

另提供VBA方法供楼主参考

Sub test()
Dim arr, brr(1 To 100)
arr = Sheet1.Cells(1, 1).CurrentRegion
n = 1
For i = 1 To UBound(arr)
   For j = 1 To UBound(arr, 2)
      If arr(i, j) <> "" Then
         brr(n) = arr(i, j)
      End If
      n = n + 1
   Next j
Next i
Sheet1.Cells(1, 5).Resize(n + 1) = Application.Transpose(brr)
End Sub

wangdi0715 · 发表于 2020-1-27 13:47

varytina 发表于 2020-1-27 09:05
另提供VBA方法供楼主参考

Sub test()

感谢大佬！！！！

		自动登录	找回密码
密码			免费注册

[求助] 有什么方法可以快速将B列数据插入A列数据么？