返回列表 上一主題 發帖

[發問] 關於複製資料, "略過空格"

試試VBA,只要A表及B表即可:

Sub TEST()
Dim xR As Range, N&
For Each xR In [D3:G6]
  N = N + 1
  If xR <> "" Then [J3:M6].Item(N) = xR
Next
End Sub

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題