[發問] VBA如何複製參照欄位後貼上數值

請問工作表1的D2欄是參照欄位如何執行1次就複製工作表1的D2到工作表2的A2欄
若遇到工作表2的A2有數值就往下一欄工作表2的B2貼上其"數值" 再執行1次就往工作表2的C2貼上其"數值"
煩請大大指導謝謝

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2013-8-31 19:22 | 只看該作者

本帖最後由 oobird 於 2013-8-31 19:23 編輯

Sub test()
a = Sheet1.[d2].Value
With Sheet2
c = IIf(.[a2] = "", 1, .[iv2].End(1).Column + 1)
.Cells(2, c) = a
End With
End Sub

複製代碼

TOP

jerrystock

中學生 Rank: 2

帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

3^#

發表於 2013-9-1 21:15 | 只看該作者

感謝oobird大大指導
請問如果複製整欄與範圍的語法
是改這樣嗎?
範圍
a = Sheet1.[d2:d80].Value
整欄
a = Sheet1.[d].Value

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2013-9-1 21:37 | 只看該作者

整欄這樣表示：a = Sheet1.[d:d].Value

TOP

jerrystock

中學生 Rank: 2

帖子: 79
主題: 26
精華: 0
積分: 111
點名: 0
作業系統: winxp
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2011-12-20
最後登錄: 2022-8-3

5^#

發表於 2013-9-1 22:19 | 只看該作者

請問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

TOP

oobird