Question

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

Answer 1

您可以根据需要调整 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

Answer 2

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

Answer 3

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

Alt + T，M，R

然后是Home键，然后是Up Arrow。停止录音。

看看Excel写的是什么

Selection.End(xlUp).Select

或者您是否有录制的“转到”对话框

Application.Goto Reference:="R1C1"

或者您已录制了Ctrl + Home

Range("A1").Select

如何使用Vbscript突出显示每个excel表中的顶行？

3 个答案: