更改2個單元格的值和相應的公式值需要復制到不同的作業表中-有解無憂

需要更改值并將相應的值復制到新作業表中。我寫

Sub Macro2()
Sheets.Add After:=ActiveSheet
    'Worksheets("Sheet2").Range("A1").Value=Worksheets("Sheet1").Range("A1").Value
    For x = 0.25 To 5
    Worksheets("Sheet2").Range("B3:B6").Value = Worksheets("Sheet2").Range("A6:A9").Value
       Z = 3
        For y = 10 To 100
           
       Sheets("Sheet1").Select
Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = x
Range("B3").Select
ActiveCell.FormulaR1C1 = y
Range("B6:B9").Select
Selection.Copy
Sheets("Sheet2").Select
Cells(Z, 3).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
        Z = Z   1
        y = y   10
        Next y
        
    x = x   0.25
    Next x
 End Sub

更改2個單元格的值和相應的公式值需要復制到不同的作業表中 variable1 需要從 0.25 更改為 5，增量為 0.25。第二個變數 2 從 10 更改為 100 。相應的值需要粘貼到新的作業表中，類似于影像 2 中未完全顯示在影像中的值。我的代碼基本上像這張圖片一樣執行。更改2個單元格的值和相應的公式值需要復制到不同的作業表中 . 我如何更改以反映像 2 的完整影像。

uj5u.com熱心網友回復：

這有效

 Sub Macro2()

     Sheets.Add(After:=Sheets("Sheet1")).Name = "NewS"
     w = 3

    For x = 0.25 To 5 Step 0.25
    'Getting value1..4
    Worksheets("NewS").Range(Cells(w, 2), Cells(w, 2).Offset(3, 0)).Value = Worksheets("Sheet1").Range("A6:A9").Value
    'Getting the value x
    Worksheets("NewS").Cells(w, 2).Offset(-1, 0).Value = x
    
       Z = 3
        For y = 10 To 100 Step 10
           
       Sheets("Sheet1").Select
Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = x
Range("B3").Select
ActiveCell.FormulaR1C1 = y
Range("B6:B9").Select
Selection.Copy
Sheets("NewS").Select
Cells(w, Z).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False

  'Getting the y value
    Cells(w, Z).Offset(-1, 0).Select
ActiveCell.FormulaR1C1 = y
        Z = Z   1
        
        Next y
        w = w   6
       
    Next x
End Sub

輸出如下所示更改2個單元格的值和相應的公式值需要復制到不同的作業表中

轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/338012.html

標籤：擅长 vba

上一篇：MSWordVBA選擇要從檔案夾路徑打開的任何單詞檔案進行復制/粘貼

下一篇：VBA拋出錯誤中的簡單浮點運算