返回列表 上一主題 發帖

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

jerrystock

帖子
79 
主題
26 
精華
0 
積分
111 
點名
0  
作業系統
winxp 
軟體版本
office 2010 
閱讀權限
20 
註冊時間
2011-12-20 
最後登錄
2022-8-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-8-31 19:03 | 只看該作者

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

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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 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 編輯
  1. Sub test()
  2.     a = Sheet1.[d2].Value
  3.     With Sheet2
  4.         c = IIf(.[a2] = "", 1, .[iv2].End(1).Column + 1)
  5.         .Cells(2, c) = a
  6.     End With
  7. End Sub
複製代碼

TOP

jerrystock

帖子
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: 8Rank: 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

帖子
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
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
6#
發表於 2013-9-2 08:01 | 只看該作者
你無法將一個範圍放在一個儲存格裡。
.Cells(2, c) = a 改為
.Cells(2, c).resize(ubound(a),1) = a '擴大範圍使與a相當

TOP

jerrystock

帖子
79 
主題
26 
精華
0 
積分
111 
點名
0  
作業系統
winxp 
軟體版本
office 2010 
閱讀權限
20 
註冊時間
2011-12-20 
最後登錄
2022-8-3 
7#
發表於 2013-9-2 15:12 | 只看該作者
非常感謝oobird大大百忙中指導小弟
我會努力學習

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題