Question

我不是编码员，也不是这个小组的新手。我从这里的帖子中无耻地偷了下面的代码：Excel 2010 select each cell in a row, activate them one by one

我遇到了问题。我有一堆粘贴的公式作为文本，我需要，基本上，点击进出，以使他们成为公式（可以解释为什么我这样做，如果需要）。代码效果很好。但是，它不会处理整个文档。它通常在1000行左右后停止。

我需要它做的是点击进出D列中包含数据的所有行（在这种情况下，通过D42000）。这是我尝试过的代码的当前版本：

`

Sub clickinout()
Sheets("Sheet3").Select

Set Rng = Range("Sheet3!D1:d42000")

For Each c In Rng.Cells

    c.Select
    SendKeys "{F2}"
    SendKeys "{ENTER}"
    Selection.NumberFormat = "General"


Next

End Sub

“

我尝试了几种变体，但结果相同。我做错了什么？

提前致谢！

Answer 1

将"=A1"等值转换为公式=A1的简单方法是

Sub clickinout()
    Dim c As Range
    For Each c In Worksheets("Sheet3").Range("D1:D42000").Cells
        If Left(c.Value, 1) = "=" Then
            c.Formula = c.Value
        End If
    Next
End Sub

用于点击进出大量单元格的代码

1 个答案: