Microsoft Exel查询

Question

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

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：

来创建      

     

现在您可以将该功能粘贴到这个新模块中，并且您已经完成了设置！