Добрый день.
Помогите, пожалуйста, упростить макросик циклом
Я понимаю, что это просто, но vba не знаю от слова совсем. :facepalm:
Нужно записать числа от 1 до 30 в диапазон ячеек B11:B25; D11:D25
[vba]Код
Sub Record()
Range("B11") = "1"
Range("B12") = "2"
Range("B13") = "3"
Range("B14") = "4"
Range("B15") = "5"
Range("B16") = "6"
Range("B17") = "7"
Range("B18") = "8"
Range("B19") = "9"
Range("B20") = "10"
Range("B21") = "11"
Range("B22") = "12"
Range("B23") = "13"
Range("B24") = "14"
Range("B25") = "15"
Range("D11") = "16"
Range("D12") = "17"
Range("D13") = "18"
Range("D14") = "19"
Range("D15") = "20"
Range("D16") = "21"
Range("D17") = "22"
Range("D18") = "23"
Range("D19") = "24"
Range("D20") = "25"
Range("D21") = "26"
Range("D22") = "27"
Range("D23") = "28"
Range("D24") = "29"
Range("D25") = "30"
End Sub
[/vba]