Microsoft Excel查询

Question

我正在使用Microsoft Exel中的一个项目，我有两列，每列有超过2000条记录。我希望每列的每个记录都插入单个''！谁能帮我？任何帮助将不胜感激！！

Answer 1

您可以在VBA中执行此操作：

Option Explicit

Sub Test()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(1)

    Dim colArr() As Variant, r As Long, c As Long
    colArr = ws.UsedRange.Value

    For r = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        For c = 1 To ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
            colArr(r, c) = "!" & colArr(r, c)
        Next c
    Next r

    ws.UsedRange = colArr

End Sub

所以你基本上把整个UsedRange放到一个多维数组中。在数组中进行更改，然后使用更新的结果重写工作表。

您还可以遍历每个单独的单元格并一次进行一次更改，但对于大量非常低效的数据。

---

如果您不熟悉VBA，请继续阅读：

我如何访问VBE？ 当您在工作簿中时，可以通过按Alt + F11来访问VBE。

好的，所以我打开了VBE。现在我该如何应用这个SUB /功能？ 在左侧窗格中，您将看到工作簿对象模块。这称为Project Explorer。您需要创建一个新模块，您可以通过right-clicking inside the Project Explorer > Insert > Module执行此操作：

现在您可以将该功能粘贴到这个新模块中，您就完全了！