2017-08-02 35 views
1

我有一个电子表格,我想用一个固定单元格(比如说C3)来划分一列值,并将结果放在相邻列中。VBA - 我如何划分一个固定单元格的一个范围的单元格

我想这段代码也运行到最后一个可用的行(有值)。

非常感谢任何帮助!谢谢!

+1

这是一个工作表函数的工作。你为什么要使用VBA?如果VBA一定是,我建议你使用For ... Next循环。你可以在互联网上查找这个术语,你会发现很多代码来构建你的代码。然后,如果您仍有问题,请告诉我们您的代码,并告诉我们您遇到的问题。我们会帮助你。 – Variatus

+0

你已经发了很多帖子,似乎找到了答案。请在收到答案时将答案标记为答案,方法是单击帖子左侧的复选标记,在上/下箭头下方。这对我们有所帮助,因为它标志着这个问题已经解决,并且给那些帮助你解决问题的用户以功劳。 – BruceWayne

回答

1

如果源值分别为,例如,A1:A7,你想将它们复制到B1:由C3同时B7和除法,你可以:

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 
0

可以用于做虽然

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