请问这段代码哪里有错？

拿铁不苦 · 发表于 2019-10-6 15:53

Sub populate_2()
Dim nRow As Integer
Sheets("Task1-Returns").Range("D2:E261").ClearContents

Sheets("Task1-Returns").Cells(1, 4).Value = "RawData-M"
Sheets("Task1-Returns").Cells(1, 5).Value = "RawData-BP"

Do While Sheets("Task1-Returns").Cells(nRow, 4).Value <> ""
Sheets("Task1-Returns").Cells(nRow, 4).Value = Sheets("Task1-RawData").Cells(nRow + 1, 2).Value

Loop

End Sub
+————————————————————————————————————
上面是我写的do while loop
运行时显示错误请问哪里写错了？

朱荣兴 · 发表于 2019-10-6 20:10

nwor定义为数值型变量，但并没有赋予这个变量实际的意义，变量为空，肯定出问题

dushaguo · 发表于 2019-10-6 21:35

dim Nrow 变里，没有赋值，尽量不要判断为空，因为一个空格也不会为空，空格又看不出来

microyip · 发表于 2019-10-7 10:45

Do While Trim(Sheets("Task1-Returns").Cells(nRow, 4).Value) <> ""

复制代码

microyip · 发表于 2019-10-7 10:46

假如Do While Sheets("Task1-Returns").Cells(nRow, 4).Value 存在错误值（尤其是公式产生了错误值），这个出错也是普遍的

		自动登录	找回密码
密码			免费注册

[求助] 请问这段代码哪里有错？

相关帖子