請問oobird大大
我範圍改這樣 他只能複製d2數值 d3到d80都無法複製到 請問哪裡還需要更改 謝謝
Sub test()
a = Sheet1.Range("d2:d80").Value
With Sheet2
c = IIf(.[a2] = "", 1, .[iv2].End(1).Column + 1)
.Cells(2, c) = a
End With
End Sub作者: oobird 時間: 2013-9-2 08:01
你無法將一個範圍放在一個儲存格裡。
.Cells(2, c) = a 改為
.Cells(2, c).resize(ubound(a),1) = a '擴大範圍使與a相當作者: jerrystock 時間: 2013-9-2 15:12