Question

请帮助我创建一个宏，该宏在工作簿中的多个工作表中搜索特定的列，并显示该列中的值计数，并在具有工作表名称和计数的新工作表中显示。

Am有3张纸，名称分别为A，B和C。我尝试了以下代码，但它不是基于列标题的名称计算的。

我有

之类的列

公司公司公司 ABC ABC ABC 防御 GHI
JKL

结果应该像

工作表名称计数 A 1 B 3 C 2

子Click（） Dim sh作为工作表，ws作为工作表，LstRw作为long，x，s作为字符串昏暗rng1作为范围

Set ws = Sheets.Add
ws.Name = "Report"
s = "A"
For Each sh In Sheets
    If sh.Name <> ws.Name Then
        With sh

              x = Application.WorksheetFunction.CountA(.Range("A:A"))
            With ws
                LstRw = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
                .Cells(LstRw, 1) = sh.Name
                .Cells(LstRw, 2) = x

            End With
        End With
    End If
Next sh

结束子

谢谢

Answer 1

使用宏记录器记录宏，在宏记录器中Excel根据您的操作生成VBA代码，然后您可以根据需要进行修改。

请参阅：

MSDN：Recording a Macro to Generate Code，和
MSDN：Revising Recorded Visual Basic Macros。

在尝试使用VBA自动执行任务之前，最好先对Excel变得“非常熟悉” 。

以下是VBA教程，推荐为非常好/详尽/准确：

VBA最重要的文档来自“官方”来源：

Microsoft's VBA Documentation。

在Excel中创建宏

1 个答案: