在Range.select中遇到variables问题
任何人都可以给我一个线索，为什么我似乎无法得到一个variables在我的Range.select函数？
正如您从注释中看到的，我已经尝试了许多不同的语法和命令，但是我总是得到一个运行时错误1004，对象全局范围失败
我试图从特定部分中的表单中获取数据，并将其复制到表格2中当前行中的特定单元格（按循环计数）。 忽略未完成的循环，一直没有能够让它运行，所以我还没有完成编写循环。
Sub PutDataSht2() Dim rowVal As Integer rowVal = 1 ' ' PutDataSht2 ' ' 'ThisWorkbook.Activate 'Sheets("Sheet1").Activate Sheets("Sheet1").Select Range("A38:H38").Select Selection.Copy 'Sheets("Sheet2").Activate Sheets("Sheet2").Select 'Range("A1:H1").Select Range("A[XrowVal]:H[XrowVal]").Select 'Range("A & rowVal:H & rowVal").Select 'Application.Goto ActiveWorkbook.Sheets("Sheet2").Range("A & rowVal:H & rowVal") 'ActiveSheet.Range(Cells(1, rowVal), Cells(8, rowVal)).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Sheets("Sheet1").Activate Sheets("Sheet1").Select Range("B85:H85").Select Application.CutCopyMode = False Selection.Copy 'Sheets("Sheet2").Activate Sheets("Sheet2").Select 'Range("J1:P1").Select Range("J & rowVal:P & rowVal").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Sheets("Sheet1").Activate Sheets("Sheet1").Select Range("B132:D132").Select Application.CutCopyMode = False Selection.Copy 'Sheets("Sheet2").Activate Sheets("Sheet2").Select 'Range("R1:T1").Select Range("R & rowVal:T & rowVal").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False rowVal = (rowVal + 1) End Sub `
你的select之一是几乎正确的！
Range("A & rowVal:H & rowVal").Select
应该：
Range("A" & rowVal & ":H" & rowVal).Select