在excel中乘以vba

我是vba編程的新手，我想創建一個程序，「如何將n個列和行從一個excel表格複製到另一個表格，並從給定的常量編號乘以所有值」在excel中乘以vba

2014-06-19 kaulsumit

沒錯。繼續並創建它呢？我不認爲這裏有人對你要創建的內容感興趣嗎？ – Sky

告訴我們你已經嘗試了什麼，以及你對問題所做的研究。詢問代碼的問題必須證明對所解決問題的最小理解。包括嘗試解決方案，爲什麼他們沒有工作，以及預期的結果。另請參閱：堆棧溢出問題清單。 –

公用Sub Derived_Years（）昏暗n的整數，RNG爲靶場 N =範圍（「C51」）的價值 - 2個表（「派生系列」）選擇設置RNG =範圍（「C6」） RNG 。選擇 line2： Range（rng.Offset（1,1），rng.Offset（1，n））。EntireColumn.Insert 範圍（rng，rng.End（xlDown））。複製範圍（rng，rng 。.Offset（1，n））的PasteSpecial的設置RNG = rng.Offset（0，N + 1）如果RNG = 「」然後轉到LINE1 否則轉到LINE2 結束如果第1行： Application.CutCopyMode =假範圍（「c6」）。選擇 End Sub – kaulsumit

考慮，作爲一種模式：

Sub demo() 
    Dim r1 As Range, r2 As Range, C As Double 
    C = 0.123 
    Set r1 = Sheets("Sheet1").Range("A1:B9") 
    Set r2 = Sheets("Sheet2").Range("A1:B9") 

    r1.Copy r2 

    For Each r In r2 
     r.Value = C * r.Value 
    Next r 
End Sub

來源

2014-06-19 11:44:30

在excel中乘以vba

回答

相關問題