如何使用 Vbscript 突出显示每个 Excel 工作表中的第一行？答案

【问题标题】：how to highlight top row in every excel sheet using Vbscript?如何使用 Vbscript 突出显示每个 Excel 工作表中的第一行？
【发布时间】：2014-06-12 04:56:59
【问题描述】：

我有一个 Vbscript 代码，可以在一个新的 excel 文件中生成多张工作表。但是会自动突出显示每个工作表的最后一个条目，即控制位于最后一行。因此，对于每张纸，都必须一直向上滚动。我实际上不想突出显示，我只需要顶部的控件。如何将每个工作表中的控件设置为第一个条目/行？感谢您的宝贵时间。

【问题讨论】：

欢迎来到 SO :) 如果你想回答你的问题，你真的应该发布一些代码来清楚地展示你的问题，并尝试告诉我们你做了什么、为什么以及结果是什么。跨度>

标签： excel vbscript controls

【解决方案1】：

您正在使用 Excel，没有理由问任何人这些类型的问题，因为您可以将其记录在 Excel 中。

Alt + T、M、R

然后是 Home 键，然后是向上箭头。停止录制。

看看 Excel 写了什么

Selection.End(xlUp).Select

或者如果您录制了“转到”对话框

Application.Goto Reference:="R1C1"

或者如果你已经录制了 Ctrl + Home

Range("A1").Select

【讨论】：

【解决方案2】：

' Assuming your Excel object variable is named 'objExcel'...
Dim Sheet
For Each Sheet In objExcel.ActiveWorkbook.Sheets
    Sheet.Cells(1, 1).Select
Next

【讨论】：

【解决方案3】：

您可以根据自己的需要调整这个 VBA 子：

Sub JumpAndPosition()
    For i = 1 To Worksheets.Count
        Worksheets(i).Activate
        Range("A1").Select
        Application.Goto Reference:=ActiveCell.Address(ReferenceStyle:=xlR1C1), Scroll:=True
    Next i
End Sub

【讨论】：