Question

我需要在Win 7上更改EXCEL 2010中列的值。

这个宏。但是，它只适用于一个单元格，即使我选择了一个1000列的列。

 Sub Change0to1()
    SelectedRange = Selection.Rows.Count
    ActiveCell.Select
    For i = 1 To SelectedRange
        If ActiveCell.Value = 0 Then
           ActiveCell.Value = 1
        End If
    Next i
 End Sub

任何帮助都会得到帮助。

由于

Answer 1

我想你想要

Sub Change0to1()
   For i = 1 To Selection.Cells.Count
       If Selection(i).Value = 0 Then
          Selection(i).Value = 1
       End If
   Next i
End Sub

这会遍历选择中的所有单元格，因此无论它们是否在一行中都无关紧要，哪个选定的单元格是活动单元格无关紧要。

Answer 2

试试这个：

Sub Change0to1()
    Dim c As Range

    For Each c In Selection
        If c.Value = 0 Then c.Value = 1
    Next c
End Sub

注意，For Each循环比For i = ..

快

更改列的值

2 个答案: