關於複製資料, "略過空格" - Excelㄧ般區

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

11^# 跳轉到 »

發表於 2015-12-19 10:46 | 只看該作者

試試VBA，只要Ａ表及Ｂ表即可：

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

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。