Как скопировать лист, а затем добавить имя плюс имя скопированного листа? - PullRequest
Новая
       28

Как скопировать лист, а затем добавить имя плюс имя скопированного листа?

0 голосов
/ 19 сентября 2019

Итак, я пытаюсь создать лист Excel с данными для разных имен приложений, которые копируются каждый раз на вкладку, но перед ним я хочу, чтобы одна вкладка содержала (имя приложения) и равно (имя приложения).

Кажется, я не могу найти здесь, чтобы сделать это, я знаю, как копировать, но не умею копировать и добавлять к существующему имени на листе.Я добавил мой код ниже, пожалуйста, прости меня, я очень новый. LOL.

Тест для отчета range.copy: 

Dim ws As Worksheet

Set wh=Worksheets(ActiveSheet.Name)

ActiveSheet.CopyAfter:=Worksheets(Sheets.Count)

If wh.Range("E10").Value <> "" Then

ActiveSheet.Name = wh.Range("e10").Value

ActiveSheet.Copy After:=Worksheets(Sheets.Count)

'Selection.AutoFilter

Range("J2").Select

Rows("1:14").Select

Range("F14").Activate

Selection.Delete Shift:=xlUp

Sheet1.Range("A1").Value = 100

Sheets("app name").Select

Rows("1:14").Select

Range("A14").Activate

Selection.Delete Shift:=xlUp

Ниже приведена часть, которую я не могу понять: 

Sheets("app name ").Name = "Contains app"(I want to rename the sheet Contains 
then the app name from the e10 part of the sheet which) 
Sheets("app name").Select

Sheets("app name").Name = "Equal to app name"

Sheets("app name").Copy After:=Sheets(Worksheets.Count)

'ActiveSheet.Copy After:=Worksheets(Sheets.Count)

'Range("E10").PasteSpecial xlPasteAllUsingSourceTheme

End If


End Sub
...