excel - 如何创建日常工作所需的简单 VBA 宏？

Question

将所有三个工作表合并到数据库或 excel 中，列名或数据可能存在一些错位

1. 各监事名下的员工数
2. 每个级别下的员工人数
3. 按地区/国家划分的员工人数
4. 每月员工人数的任何变动
5. 有关新员工或老员工的任何指标

代码我试图合并表格，但没有成功，而且我是 VBA 编码的新手，所以无法编写完美的代码。编写一个简单的 VBA 代码来自动执行上述步骤有什么帮助吗？

代码：

Private Sub CommandButton1_Click()

totalsheets = Worksheets.Count

For i = 1 To totalsheets
If Worksheets(i).Name <> "MasterSheet" Then

lastrow = Worksheets(i).Cells(Rows.Count, 1).End(x1Up).Row
For j = 2 To lastrow
Worksheets(i).Activate
Worksheets(i).Rows(j).Select
Selection.Copy
Worksheets("Mastersheet").Activate
        
Worksheets("Mastersheet").Activate
        
lastrow = Worksheets("Mastersheet").Cells(Rows.Count, 1).End(x1Up).Row
Worksheets("Mastersheets").Cells(lastrow + 1, 1).Select
ActivateSheet.Paste
Next
End If
    
Next

标签： excelvba