Код |
---|
Sub четырнадцать() Dim q, w As Integer q = 1 w = 0 Do While Not IsEmpty(Workbooks("исполнительная").Sheets("Даные").Cells(6 + q, 5).Value) w = w + 1 Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q, 1).Value = (0 + q) & "." Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q, 2).Value = "Заземляющий электрод в районе опоры ВЛ-0,4 кВ " & Workbooks("исполнительная").Sheets("Даные").Cells(6 + q, 5).Value Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q, 3).Value = "Стальной выпуск опоры " & Workbooks("исполнительная").Sheets("Даные").Cells(6 + q, 5).Value Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q, 4).Value = "Сварка" Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q, 6).Value = "200" Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q, 7).Value = "0.04" Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q, 9).Value = "годно" Workbooks("исполнительная").Sheets("Лист14").Range(Cells(21 + q, 4), Cells(21 + q, 5)).Merge Workbooks("исполнительная").Sheets("Лист14").Range(Cells(21 + q, 7), Cells(21 + q, ).Merge Workbooks("исполнительная").Sheets("Лист14").Range(Cells(21 + q, 9), Cells(21 + q, 10)).Merge Workbooks("исполнительная").Sheets("Лист14").Range(Cells(21 + q, 4), Cells(21 + q, 5)).Borders.LineStyle = -xlContinuos Workbooks("исполнительная").Sheets("Лист14").Range(Cells(21 + q, 7), Cells(21 + q, ).Borders.LineStyle = -xlContinuos Workbooks("исполнительная").Sheets("Лист14").Range(Cells(21 + q, 9), Cells(21 + q, 10)).Borders.LineStyle = -xlContinuos q = q + 1 Loop q = 1 If Workbooks("исполнительная").Sheets("Даные").Cells(6 + q, 6).Value <> " " Then Do While Not IsEmpty(Workbooks("исполнительная").Sheets("Даные").Cells(6 + q, 6).Value) Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q + w, 1).Value = (0 + q + w) & "." Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q + w, 2).Value = "Заземляющий электрод в районе опоры ВЛ-0,4 кВ " & Workbooks("исполнительная").Sheets("Даные").Cells(6 + q, 6).Value Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q + w, 3).Value = "Стальной выпуск опоры " & Workbooks("исполнительная").Sheets("Даные").Cells(6 + q, 6).Value Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q + w, 4).Value = "Сварка" Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q + w, 6).Value = "200" Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q + w, 7).Value = "0.04" Workbooks("исполнительная").Sheets("Лист14").Cells(21 + q + w, 9).Value = "годно" Workbooks("исполнительная").Sheets("Лист14").Range(Cells(21 + q + w, 4), Cells(21 + q + w, 5)).Merge Workbooks("исполнительная").Sheets("Лист14").Range(Cells(21 + q + w, 7), Cells(21 + q + w, ).Merge Workbooks("исполнительная").Sheets("Лист14").Range(Cells(21 + q + w, 9), Cells(21 + q + w, 10)).Merge Workbooks("исполнительная").Sheets("Лист14").Range(Cells(21 + q + w, 4), Cells(21 + q + w, 5)).Borders.LineStyle = -xlContinuos Workbooks("исполнительная").Sheets("Лист14").Range(Cells(21 + q + w, 7), Cells(21 + q + w, ).Borders.LineStyle = -xlContinuos Workbooks("исполнительная").Sheets("Лист14").Range(Cells(21 + q + w, 9), Cells(21 + q + w, 10)).Borders.LineStyle = -xlContinuos q = q + 1 Loop End If End Sub |
Имеется вот такой макрос. Суть его работы: Он собирает данные прописанные в столбик на листе "Даные" и строит табличку на листе "Лист14". Сам макрос работает отлично, но он снимает данные только с двух указанных столбиков. Пожалуйста подскажите что нужно сделать, чтобы этот макрос снимал данные не с двух столбиков, а к примеру с пяти разных. Заранее спасибо
P.S. буду благодарен если ответите, как для чайников