怎么写VBAProject Sheet1（也就是默认表名）

shibaideren

1. Sub CopyData()
   
2.     Dim wsSource As Worksheet, wsTarget As Worksheet
   
3.     Dim rngSource As Range, rngTarget As Range
   
4.     Dim nextRow As Long
   
5. 
   
6.     Set wsSource = ThisWorkbook.Sheets("AAA")  '请问上仙，不用名字定义表格，用默认表名，怎么写VBAProject Sheet1（AAA）
   
7.     Set wsTarget = ThisWorkbook.Sheets("BBB")  '请问上仙，不用名字定义表格，用默认表名，怎么写VBAProject Sheet2（BBB）
   
8. 
   
9.     Set rngSource = wsSource.Range("CN23:DE23")
   
10. 
    
11.     nextRow = wsTarget.Cells(Rows.Count, "AB").End(xlUp).Row + 1
    
12.     Set rngTarget = wsTarget.Range("K" & nextRow & ":AB" & nextRow)
    
13. 
    
14.     rngSource.Copy
    
15. 
    
16.     rngTarget.PasteSpecial Paste:=xlPasteValues
    
17. 
    
18.     Application.CutCopyMode = False
    
19.     MsgBox "已写到  《BBB》。"
    
20. End Sub

复制代码

醉眼看尘世

Set wsSource=Sheet1
就行了

lss001

怎么写？
应该是先查看一下Sheets("AAA")
查看方法
打开vbe代码窗口，在窗口左侧查看
比如显示的是→Sheet3(AAA)
那么对象赋值就是
把括号外的数字3填写到括号中即可
Set wsSource = ThisWorkbook.Sheets(3)

沈默00

Set wsSource=红框里的，