У меня есть данные, которые выглядят как таблица, показанная ниже. Количество наблюдений в этом наборе данных меняется каждый месяц. Столбцы остаются неизменными. Я бы хотел, чтобы цикл мой код через каждую строку, пока строка пуста. Я думаю, что цикл while будет уместным, но до сих пор мне не удалось его выполнить (отметим, что я полный новичок в VBA.)do while loop in VBA
Несколько других примечаний: Единственное, что изменится как код проходит через каждое наблюдение за данными - это диапазон, выбранный в строке 2 (я хочу перейти к следующей строке наблюдений) и конечный диапазон, выбранный для специального шага Вставить в последней строке кода (опять же, я захотят перейти к следующей строке наблюдений с каждой итерацией).
Sample Data: Sex Age Race Total Cholesterol HDL-Cholesterol Systolic Blood Pressure Treatment for High Blood Pressure Diabetes Smoker F 50 AA 300 90 200 Y Y Y M 55 AA 290 90 200 Y Y Y F 50 AA 300 90 200 N N N
код, что мне нужно Переберите каждой непустой строки:
Sub ASCVD()
Sheets("Sheet1").Select
Range("A2:I2").Select
Selection.Copy
Sheets("Omnibus").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Большое спасибо заранее за вашу помощь !!!
htt p: //www.java2s.com/Code/VBA-Excel-Access-Word/Excel/DoUntilloopandIsEmpty.htm – cyboashu
Эта [Документация Excel-VBA переполнения стека] (http://stackoverflow.com/documentation/excel-vba/ 918/methods-for-find-the-last-used-row-or-column-in-a-worksheet # t = 201612201616042176856) при поиске последней используемой строки поможет. После того, как вы получите последнюю строку, вы можете выполнить цикл от '3 до LastRow' –