Как мне избежать дублирования тусклых оттенков в одном сабе?

Question

Таким образом, у меня в основном есть этот отчет A. Я хочу скопировать весь отчет B и вставить его в конец отчета A, но он дал мне эту двойную тусклую ошибку, и я не знаю, как ее дифференцировать.Я понимаю дубликаты, но хочу, чтобы программа vba прочитала мой файл Excel с отчетом (если ws.Name как «A *», затем ws.Activate) и активировала его, но игнорировала числа после A, потому что имя файла постоянно меняется.Если есть другой способ сделать это.Это была бы удивительная помощь, которую я пытался выяснить весь день.

Sub CopyBdata_into_Adata()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name Like "B*" Then
ws.Activate   
Exit Sub    
End If

Next ws
Rows("1:1").Select    
Selection.Delete Shift:=xlUp    
Range("A2:BG3").Select    
Range(Selection, Selection.End(xlDown)).Select    
Selection.Copy 

Dim ws As Worksheet    
For Each ws In Worksheets    
If ws.Name Like "A*" Then    
ws.Activate    
Exit Sub    
End If    
Next ws

ActiveWindow.ScrollRow = 20    
ActiveWindow.ScrollRow = 120    
ActiveWindow.ScrollRow = 259    
ActiveWindow.ScrollRow = 318    
ActiveWindow.ScrollRow = 1251    
ActiveWindow.ScrollRow = 1867    
ActiveWindow.ScrollRow = 2462    
ActiveWindow.ScrollRow = 4348    
ActiveWindow.ScrollRow = 5162    
ActiveWindow.ScrollRow = 6571    
ActiveWindow.ScrollRow = 6948    
ActiveWindow.ScrollRow = 7604    
ActiveWindow.ScrollRow = 7921    
ActiveWindow.ScrollRow = 8080    
ActiveWindow.ScrollRow = 8437    
ActiveWindow.ScrollRow = 8576    
ActiveWindow.ScrollRow = 9092    
ActiveWindow.ScrollRow = 9211    
ActiveWindow.ScrollRow = 9648    
ActiveWindow.ScrollRow = 9886    
ActiveWindow.ScrollRow = 10244    
ActiveWindow.ScrollRow = 10561    
ActiveWindow.ScrollRow = 11177    
ActiveWindow.ScrollRow = 11514    
ActiveWindow.ScrollRow = 12090    
ActiveWindow.ScrollRow = 12308    
ActiveWindow.ScrollRow = 12487    
ActiveWindow.ScrollRow = 13122    
ActiveWindow.ScrollRow = 13241    
ActiveWindow.ScrollRow = 13579    
ActiveWindow.ScrollRow = 13599    
ActiveWindow.ScrollRow = 13757    
ActiveWindow.ScrollRow = 13797    
ActiveWindow.ScrollRow = 13817    
ActiveWindow.ScrollRow = 13936    
ActiveWindow.ScrollRow = 13996    
ActiveWindow.ScrollRow = 14015    
ActiveWindow.ScrollRow = 14174    
ActiveWindow.ScrollRow = 14194    
ActiveWindow.ScrollRow = 14274    
ActiveWindow.ScrollRow = 14393    
ActiveWindow.ScrollRow = 14512    
ActiveWindow.ScrollRow = 14532    
ActiveWindow.ScrollRow = 14690    
ActiveWindow.ScrollRow = 14710    
ActiveWindow.ScrollRow = 14750    
ActiveWindow.ScrollRow = 14810    
ActiveWindow.ScrollRow = 14829    
ActiveWindow.ScrollRow = 14849    
ActiveWindow.ScrollRow = 14869    
ActiveWindow.ScrollRow = 14909    
ActiveWindow.ScrollRow = 14929    
ActiveWindow.ScrollRow = 14949    
ActiveWindow.SmallScroll Down:=3

Range("A14988").Select    
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _    
:=False, Transpose:=False

Windows("Report_Instructions_and_macros_Test1.xlsm").Activate

End Sub

Answer 1

Просто удалите второй

dim ws as Worksheet

.Для переменной управления циклом в vba вам нужно только затемнить ее один раз внутри подпрограммы или функции.