返回列表 上一主題 發帖

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

試試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

        靜思自在 : 天上最美是星星,人生最美是溫情。
返回列表 上一主題