VBA Копировать определенный диапазон в нескольких листах - PullRequest
Новая
       34

VBA Копировать определенный диапазон в нескольких листах

0 голосов
/ 17 сентября 2018

Это моя первая попытка написать код VBA.У меня есть книга Excel с 19 листами (FVal.xls), каждая из которых состоит из 130 строк и 15 столбцов с данными.

Если я найду определенное значение («Fla») в четвертом столбце, яхотите скопировать данные в этой строке из столбца 10 в столбец 15 и вставить их в строку 3, столбцы 10–15 на каждом листе.

Код выполняется, но он оставляет пустые ячейки в позиции скопированных ячеек.

Вот мой код: 

Option Explicit

Sub FinCop()

Dim wb1 As Workbook
Dim ws As Worksheet
Dim i As integer

Set wb1 = Workbooks.Open("C:\FVal.xls")

For Each ws In wb1.Worksheets

i = 1
Do While ws.Cells(i, 4).Text <> "Fla"
i = i + 1
Loop

ws.Range(ws.Cells(i, 10), ws.Cells(i, 15)).Copy
ws.Range(ws.Cells(3, 7), ws.Cells(3, 15)).PasteSpecial Paste:=xlPasteValues, _
                    Operation:=xlNone, _
                    SkipBlanks:=True, _
                    Transpose:=False
Next ws

End Sub
...