VBA – 我如何通过一个固定的单元划分一系列的单元格

我有一个电子表格，其中有一列值，我想用一个固定的单元格（比如C3）进行划分，并在相邻列中显示结果。

我想这个代码运行到最后一个可用的行（与值）以及。

将不胜感激任何帮助！ 谢谢！

Answer 1

例如，如果您的源值在A1：A7中，并且您想将它们复制到B1：B7，并同时除以C3，则可以：

With ActiveSheet 'Determine last row Dim lastRow As Long lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'Copy the original values from column A to column B .Range("B1:B" & lastRow).Value = .Range("A1:A" & lastRow).Value 'Copy / Pastespecial Divide using cell C3 .Range("C3").Copy .Range("B1:B" & lastRow).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlDivide, _ SkipBlanks:=False, _ Transpose:=False Application.CutCopyMode = False End With 

Answer 2

你可以使用Do While

 Do While Cells(iCol, 3).Value <> "" 'Do some thing iCol = iCol + 1 Loop