2017-08-02 33 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 
相關問題