我想把sheet1里的1到100行 1到9列（A1：I100）的数据赋值到sheet2中的A1：I100这个范围内，我这样写的代码有什么错误？？
Sub SheetCopy()
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To 100
For j = 1 To 9
Sheet2.cell(i, j).Value = Sheet1.cell(i, j).Value
Next j
Next i
End Sub
Sub SheetCopy()
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To 100
For j = 1 To 9
Sheet2.cells(i, j).Value = Sheet1.cells(i, j).Value
Next j
Next i
End Sub
不是cell(i,j)是cells(i,j)，你少了个s
另你为什么要用循环来写呢？一句话的事呀
Sub SheetCopy()
sheet1.range("a1:i100").copy sheet2.range("a1")
End Sub
或者
Sub SheetCopy()
sheet2.range("a1:i100").value= sheet1.range("a1:i100") .value
End Sub
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To 100
For j = 1 To 9
Sheet2.cells(i, j).Value = Sheet1.cells(i, j).Value
Next j
Next i
End Sub
不是cell(i,j)是cells(i,j)，你少了个s
另你为什么要用循环来写呢？一句话的事呀
Sub SheetCopy()
sheet1.range("a1:i100").copy sheet2.range("a1")
End Sub
或者
Sub SheetCopy()
sheet2.range("a1:i100").value= sheet1.range("a1:i100") .value
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-08-04
你的系统报错信息是怎样的？系统说你哪一行错了？你不说谁知道？
