vba基于其他工作表中的单元格更改列

Question

Sub Copy_Data()
  Application.ScreenUpdating = False
  Worksheets("Weekly formula").Range("C6").Value = Worksheets("Cleaned").Range("b55").Value 
    Worksheets("Weekly formula").Range("C10").Value = Worksheets("Cleaned").Range("c55").Value 
      Worksheets("Weekly formula").Range("C8").Value = Worksheets("Cleaned").Range("d55").Value 

Worksheets("Weekly formula").Range("C35").Value = Worksheets("Cleaned").Range("b51").Value
    Worksheets("Weekly formula").Range("C39").Value = Worksheets("Cleaned").Range("c51").Value
      Worksheets("Weekly formula").Range("C37").Value = Worksheets("Cleaned").Range("d51").Value

      Worksheets("Weekly formula").Range("C64").Value = Worksheets("Cleaned").Range("b50").Value
    Worksheets("Weekly formula").Range("C68").Value = Worksheets("Cleaned").Range("c50").Value
      Worksheets("Weekly formula").Range("C66").Value = Worksheets("Cleaned").Range("d50").Value

        Worksheets("Weekly formula").Range("C93").Value = Worksheets("Cleaned").Range("b52").Value
    Worksheets("Weekly formula").Range("C97").Value = Worksheets("Cleaned").Range("c52").Value
      Worksheets("Weekly formula").Range("C95").Value = Worksheets("Cleaned").Range("d52").Value

                       Worksheets("Weekly formula").Range("C122").Value = Worksheets("Cleaned").Range("b53").Value
    Worksheets("Weekly formula").Range("C126").Value = Worksheets("Cleaned").Range("c53").Value
      Worksheets("Weekly formula").Range("C124").Value = Worksheets("Cleaned").Range("d53").Value

         Worksheets("Weekly formula").Range("C151").Value = Worksheets("Cleaned").Range("b54").Value
    Worksheets("Weekly formula").Range("C155").Value = Worksheets("Cleaned").Range("c54").Value
      Worksheets("Weekly formula").Range("C153").Value = Worksheets("Cleaned").Range("d54").Value

                       Worksheets("Weekly formula").Range("C180").Value = Worksheets("Cleaned").Range("b56").Value
    Worksheets("Weekly formula").Range("C184").Value = Worksheets("Cleaned").Range("c56").Value
      Worksheets("Weekly formula").Range("C182").Value = Worksheets("Cleaned").Range("d56").Value

                       Worksheets("Weekly formula").Range("C209").Value = Worksheets("Cleaned").Range("b57").Value
    Worksheets("Weekly formula").Range("C213").Value = Worksheets("Cleaned").Range("c57").Value
      Worksheets("Weekly formula").Range("c211").Value = Worksheets("Cleaned").Range("d57").Value


  Application.ScreenUpdating = True
End Sub

我在基于H25的"cleaned“工作表单元格设置weekly formula range列时遇到问题。我已经将其设置为为我想要的列生成正确的字母。我就是不知道怎么把它写进这个宏里。新手在这里，任何帮助都是非常感谢的。

Answer 1

您可以将H25读入一个变量，并在您的范围地址中使用它(我已经使用了Activesheet，但请根据需要更改为从中提取H25值的工作表名称)：

Sub test()

Dim sourceCol As String

sourceCol = ActiveSheet.Range("H25").Value2

Worksheets("Weekly formula").Cells(209, sourceCol).Value = ........


End Sub

或

Worksheets("Weekly formula").Range(sourceCol & 209).Value