如何將Sheet1不連續欄位儲存到Sheet2 - Excel程式區

[發問] 如何將Sheet1不連續欄位儲存到Sheet2

　頭銜: 街友一族

論壇貢獻勳章

1^# 跳轉到 »

發表於 2010-9-14 00:16 | 顯示全部帖子

Private Sub CommandButton1_Click()
With Sheet3
For Each a In .Range(.[B13], .[B26].End(xlUp))
i = i + 1
ar = Array(.[f7].Text, "s" & .[f7].Text & "-" & Format(i, "00"), .[C6], .[C7], .[C8], .[C9], .[C10], .[F8], a, a.Offset(, 1), a.Offset(, 2), a.Offset(, 3), a.Offset(, 4))
Sheet8.[A65536].End(xlUp).Offset(1, 0).Resize(, 13) = ar
Next
End With
End Sub

複製代碼

另外報價單b欄因有空白字符，所以.[B26].End(xlUp)會判斷錯誤，選中b15:b26,按一下delete.

靜思自在 : 看別人不順眼，是自己修養不夠。