#vba #for-loop #new-operator #division #basic
#vba #для цикла #new-оператор #разделение #Базовые модели
Вопрос:
Я новичок в VBA и новичок в StackOverflow и просто пытаюсь следовать руководствам, чтобы разобраться в вещах. Если у меня есть два столбца чисел, столбец A и B, я хочу разделить A / B и поместить результат в C. Для этого я хочу использовать цикл for. Код, который у меня есть до сих пор, является:
Sub ForLooptoDivide()
Dim i As Integer
For i = 2 To 6
Cells(i, 3).Value = Cells(1, i).Value / Cells(2, i).Value
Next i
End Sub
Как я уже сказал, я совершенно новичок в этом и только что столкнулся с препятствиями с помощью руководств.
Спасибо!
Комментарии:
1. Для этого требуется один цикл, а не три.
Ответ №1:
Вы не упомянули о своей проблеме. Есть много способов сделать это. Ниже вы найдете последнюю использованную ячейку в Column A
, а затем выполните итерацию, чтобы разделить Column A
на Column B
и поместить результат в Column C
. Попробуйте это…
Sub DivideColumns()
Dim Lastrow As Long
Dim i As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To Lastrow
Cells(i, "C") = Cells(i, "A") / Cells(i, "B")
Next i
End Sub
Комментарии:
1. Рад это знать. Если вы нашли ответ полезным, рассмотрите возможность принятия ответа. Отметьте галочкой ответ.
2. @Harun24HR Поскольку мы не проверяем, заполнены ли ячейки в столбце B, возможно, имеет смысл добавить
If Cells (i, "B") <> 0 Then Cells(i, "C") =...