Question

我有一个带有一列值的电子表格，我希望将其除以一个固定的单元格（比如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

VBA - 如何通过固定单元划分一系列单元

2 个答案: