Базовый VBA для разделения двух столбцов

#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") =...