请问这段代码哪里有错？

拿铁不苦 · 发表于 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

提示: 作者被禁止或删除内容自动屏蔽

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 存在错误值（尤其是公式产生了错误值），这个出错也是普遍的

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-10-6 20:10 来自手机 \| 显示全部楼层 [广告] ★ ChatOffice，能听会写的AI办公，包含百种Excel、Word、PPT工具，兼容WPS，百倍效率！★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

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