主页 / coding / 问题 / 77052448
Accepted
Seb358
Asked: 2023-09-06 21:35:18 +0800 CST

如何使用单元格值作为单元格地址

  • 772

我正在尝试制作一个更新宏。该宏将打开其他工作簿，然后查看包含数据的列中的最后一个单元格，然后获取该数据的副本并将其粘贴到原始工作表中。然后我使用公式通过在匹配数据后返回行号的范围内匹配复制的数据来计算单元格地址，然后公式加 1，这样它将成为下一行，然后添加列字母。公式看起来像这样

="R"&MATCH((S1),R1:R500,0)+1

现在我有了需要添加到第二个工作簿中的下一个单元格的单元格地址，我一直不知道如何使用它。当我在vba中时，有没有办法将单元格的值作为单元格引用引用？在上面的示例中，它返回的单元格是“R34”，公式所在的单元格是 Q1，那么我如何引用 Q1 的值作为复制范围的开始。

我的副本子看起来像这样

        Sub COPYNEWRUNS()

Range("value of Q1:S500").Select
Selection.Copy
Windows("LINE 1 PRODUCTION.xlsm").Activate
    Worksheets("LINE 1 - H").Activate
NextFree = Range("B9:B" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Range("B" & NextFree).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

显然我知道“Q1 的值”不起作用，我只是把它放在那里来尝试说明我想要实现的目标。我也知道这可能不是复制和粘贴内容的最佳方式，我应该尽量避免一直选择内容，但这是我知道如何在其他工作簿和它之间复制和粘贴的方式有效，这就是我用来实现它的方法。如果它们是您答案的一部分，我愿意接受更好的方法。我也不担心使用 vba 打开工作簿，因为这个子程序是一个测试子程序。因此，当它工作时，重要的位将被取出并放入更大的子系统中，以便它可以同时完成所有数据传输。以防万一您认为它可能相关，我将在下面添加主要子内容（但这偏离了我原来的问题）

Sheet1.Activate
  Workbooks.Open "S:\TEMP TEST\SHEETS\LINE 1 PRODUCTION.xlsm"
  Windows("LINE 1 PRODUCTION.xlsm").Activate
    Worksheets("BUTTON").Activate
    ActiveSheet.Unprotect "AFFOC"
    Windows("TOLEDO RUN ORDER.xlsm").Activate
    Range("A3:H500").Select
    Selection.Copy
    Windows("LINE 1 PRODUCTION.xlsm").Activate
    Worksheets("BUTTON").Activate
    Range("A3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Protect "AFFOC"
  Workbooks("LINE 1 PRODUCTION.xlsm").Close SaveChanges:=True

这是一个更大的子程序的一部分，打开工作簿取消对特定工作表副本的保护，并将原始工作表中的数据粘贴到第二个工作表中，重新保护该工作表，然后保存并关闭它。然后移动到下一张纸。

非常感谢任何建议或帮助。（仅供参考，我是一个自学成才的初学者，如果有些事情超出了我的范围，我很抱歉）

excel

1 个回答

  1. Best Answer
    Range("value of Q1:S500").Select

    只会是

    Range(Range("Q1").Value & ":S500").Select

    Sub COPYNEWRUNS()...但你可以这样重写：

    Sub COPYNEWRUNS()
    Dim targetWb As Workbook
    Set targetWb = Workbooks("LINE 1 PRODUCTION.xlsm")

    Dim ws As Worksheet
    Set ws = targetWb.Worksheets("LINE 1 - H")

    With ws
         Dim nextFree As Long
         nextFree = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
    End With

    With ActiveSheet
         .Range(.Range("Q1").Value & ":S500").Copy Destination:=ws.Range("B" & nextFree)
    End With

    Application.CutCopyMode = False

End Sub
    • 1

相关问题