Excel vba-用于选定内容中的每个单元格[重复]

Question

Set ws1 = Sheets("Source")
Set ws2 = Sheets("Destination")

finalrow = ws1.Cells(Rows.Count, "A").End(xlUp).Row

ws1.Range(Cells(2, "B"), Cells(finalrow, "C")).Select

For Each c In Selection
        If IsNumeric(c) Then
            c.Value = 1 * c.Value
        End If
Next c

即使我指定了工作表“source”和“destination”，如果我不从工作表“source”运行该宏，它将返回一个错误。我认为问题出在“for Each c In selection”这一行上，但它指出上面的行是有问题的。我不知道这有什么问题。

Answer 1

试试看

Set ws1 = ThisWorkbook.Sheets("Source")
Set ws2 = ThisWorkbook.Sheets("Destination")

With ws1
    finalrow = .Cells(.Rows.Count, "A").End(xlUp).Row

    For Each c In Range(.Cells(2, 2), .Cells(finalrow, 3))
            If IsNumeric(c) Then
                c.Value = 1 * c.Value
            End If
    Next c
End With

如果您需要指定一个工作表对象（这是一个很好的做法），您需要为您使用的所有Range/Cells属性指定它。

所以这是不正确的：

ws1.Range(Cells(2, "B"), Cells(finalrow, "C")).Select

ws1.Range(ws1.Cells(2, "B"), ws1.Cells(finalrow, "C")).Select

With ws1
   .Range(.Cells(2, 2), .Cells(finalrow, 3))
End With