错误的玩意 蛋疼 哪块错了

zhanjian19

Sub test()
Dim i, j As Long
For i = 1 To 800
If Sheets("Sheet1").Cells(i, 14).Value = "无要求" Then Sheets("Sheet2").Cells(j, 1) = Rows(i & ":" & i).Values
End If
j = j + 1
Next i
End Sub

刘苏

定义变量不能这样写哦，VBA要求

dim i as long,dim j as long


变量j的初始值是多少？


Sheets("Sheet2").Cells(j, 1) = Rows(i & ":" & i).Values
这里是要让一个单元格写上一整行的值吗？
这样的语法是错误的

value，不加s


求助到VBA版块会更容易得到帮助

zhanjian19

刘苏 发表于 2014-10-7 07:30
定义变量不能这样写哦，VBA要求

dim i as long,dim j as long

我回帖子要等这么多年。。。我对不起你。。。

cocokaka

55555555555555555555555