excel <em>vba</em>代码要怎么写-vba excel页数,excel页码不从1开

Sub 工作表百名称()
Dim sh As Worksheet
For Each sh In Worksheets
wtName = sh.Name
If wtName = "Sheet3" Then
Sheets(wtName).Select
MsgBox wtName
End If
Next
End Sub
假设度查找的内工作表名容称是 "Sheet3"

用如何代码可实现百，假设原数据在A、B列度

Sub main()

Set dic = CreateObject("scripting.dictionary")

arr = Range("A1").CurrentRegion

For i = 1 To UBound(arr)

If dic.exists(arr(i, 2)) = False Then

dic(arr(i, 2)) = arr(i, 1)

Else

If dic(arr(i, 2)) < arr(i, 1) Then

dic.Remove arr(i, 2)

dic(arr(i, 2)) = arr(i, 1)

End If

End If

Next i

[E1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)

[D1].Resize(dic.Count, 1) = Application.Transpose(dic.items)

End Sub

详细步骤如下：知

1. 原数据

2. Alt+F11，选择sheet1，复制上述代码道

3. 关闭返回工作表，alt+F8，掉出宏界面内

4. 点击执行，即得到想要的结果：容
   

操作步骤：

1.在页脚处双击鼠标，进行页脚编辑状态；知

2.单击插入---->文档部件---->域，如图所道示；

3.弹出域对话框，在类别处选择文档信息；在域名处选择Numpage即可，如图所示。

在工程资源管理器 中
双击 ThisWorkbook
在代知码窗口粘贴下列代码
在打开 工作簿道 或 插入 工作表时
在第一表的A1单元将显示内
工作簿总页数 = x ,x 为EXcel总页数
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Debug.Print Sheets.Count
Sheets(1).Cells(1, 1) = "工作簿总页数 = " & Sheets.Count
Sheets(1).Select
End Sub

Private Sub Workbook_Open()
Sheets(1).Cells(1, 1) = "工作簿总页数 = " & Sheets.Count
Sheets(1).Select
End Sub
有何问题容请Hi我