返回列表 上一主題 發帖

VBA 物件選取寫法問題

mash071896

帖子
11 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2020-2-14 
最後登錄
2021-5-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-6-19 17:02 | 顯示全部帖子

VBA 物件選取寫法問題

請問各位大大
  1. Sub test()

  3. Dim a As Worksheet
  4. Dim b As Worksheet

  6. Set a = Sheets("工作表1")
  7. Set b = Sheets("工作表2")

  9. For i = 0 To 2

  11. a.Select
  12. Range(Cells(i + 2, 2), Cells(i + 2, 6)).Copy

  14. b.Select
  15. Cells(i * 9 + 2, 2).Select
  16. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
  17. Next

  19. End Sub
複製代碼
我把
a.Select
Range(Cells(i + 2, 2), Cells(i + 2, 6)).Copy 這段縮寫
a.Range(Cells(i + 2, 2), Cells(i + 2, 6)).Copy 為什麼他會跳出錯誤?
活頁簿1.rar (17.18 KB)
收藏 分享

mash071896

帖子
11 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2020-2-14 
最後登錄
2021-5-3 
2#
發表於 2020-6-21 13:59 | 顯示全部帖子
回復 3# n7822123

感謝大大 原來是cell部分出錯
學到了with

TOP

mash071896

帖子
11 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2020-2-14 
最後登錄
2021-5-3 
3#
發表於 2020-6-21 14:41 | 顯示全部帖子
回復 2# n7822123
感謝詳細說明父代 與子代的關係

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題