条件填充出错如休修改

TTBRD

老师请帮忙看一下，M列只要是空值就等于15列的对应值，以下代码提示If rng = "" Then类型不匹配，应该如何修改：



Dim f
f = Sheet2.Cells(Rows.Count, 17).End(xlUp).Row
Sheets("Import").Activate
Dim rng As Range
'On Error Resume Next
'Application.Calculation = xlManual

For Each rng In Range("M2:M" & f)
If rng = "" Then
rng.Value = Cells(rng.Row, 15).Value
End If

边缘码农

If rng = "" Then   改成  If rng.Value = "" Then   试试？

TTBRD

边缘码农 发表于 2023-4-26 11:12
If rng = "" Then   改成  If rng.Value = "" Then   试试？

试过改了也是一样提示错误，谢谢！

TTBRD

边缘码农 发表于 2023-4-26 11:12
If rng = "" Then   改成  If rng.Value = "" Then   试试？

试过还是不行，谢谢！

边缘码农

将文件传上来吧，猜谜猜不出来。

ykcbf1100

If rng = "" Then改成If len(rng.value) = 0 Then，再试试

TTBRD

ykcbf1100 发表于 2023-4-26 15:57
If rng = "" Then改成If len(rng.value) = 0 Then，再试试

谢谢，还是会提示，但是对结果不影响，我加了on error resume next让继续执行下去了

18380222672

mark一下，没文件猜不出来是什么问题