關於複製資料, "略過空格" - 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

靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。