Существует ли автоматический способ редактирования имен и порядка листов Excel?

297
WilliamKF

Я хотел бы изменить порядок листов в книге Excel 2007 и задаться вопросом, есть ли способ сделать это, кроме утомительного ручного процесса. У меня есть около 100 листов, поэтому я бы хотел избежать ручного способа сделать это, но я не вижу никакого программного способа сделать это.

Точно так же, есть ли простой способ поиска листа по его имени, чтобы выбрать его?

2

2 ответа на вопрос

2
techturtle

You can loop through the sheets programmatically and reverse their order using code similar to the following:

Sub ReverseSheets() Dim i As Integer For i = 1 To Worksheets().count Worksheets(i).Move before:=Worksheets(1) Next i End Sub

This code will automatically reverse all sheets in a workbook. The exact number of sheets is irrelevant because it checks for the number of sheets each time.

As for searching for sheet names, it is possible but significantly more complicated than reversing the sheets. Here are a couple of sites to get you started:

http://automation-beyond.com/2010/01/27/how-to-find-excel-worksheet-by-name/

http://www.mrexcel.com/forum/excel-questions/58374-visual-basic-applications-find-sheet-name.html

0
dav

To change a sheet name, you can use VBA:

  1. Select your sheet: Sheets("Sheet1".Select

  2. Rename your sheet: Sheets("Sheet1").Name = "SheetA"

Then just create a loop to cycle through all of your sheets and have it assign the names you want.

Похожие вопросы