主页 / user-22409551

Seb358's questions

Martin Hope
Seb358
Asked: 2023-09-06 21:35:18 +0800 CST
  • 6

我正在尝试制作一个更新宏。该宏将打开其他工作簿，然后查看包含数据的列中的最后一个单元格，然后获取该数据的副本并将其粘贴到原始工作表中。然后我使用公式通过在匹配数据后返回行号的范围内匹配复制的数据来计算单元格地址，然后公式加 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
Martin Hope
Seb358
Asked: 2023-08-18 16:59:40 +0800 CST
  • 5

当我有一些单元格地址发生变化而另一些单元格地址没有变化时，如何使循环工作。（Excel，VBA）

所以我有一段代码想要运行一列（BG9：BG500），但我不确定如何让循环函数运行所有单元格以及如何编写它，以便它只更改单元格需要更改的地址，同时保留需要保持静态的地址。

我绝对是 excel 宏和 vba 的初学者，所以我目前所知道的一切都来自于谷歌搜索如何做以及通过反复试验自己解决问题，所以我可能不知道一些关于 vba 的我应该知道的事情。

这是我想要在本专栏中运行的代码。

If Range("B9") = Range("BT28") Then
Range("BR58:CA58").Select
Selection.Copy
Range("BG9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If

需要更改的两个单元地址是（“B9”）和（“BG9”），例如：第一次运行是 9，第二次运行是 10，依此类推。我尝试过使用我在网上找到的循环函数

Dim iCell As Range
Dim iRange1 As String
Dim iRange2 As String
Dim rangeName As String

iRange1 = ActiveCell.Address
iRange2 = ActiveCell.Address
rangeName = iRange1 & ":" & iRange2

For Each iCell In Range(rangeName).Cells

但说实话，我不知道这里发生了什么，并且希望获得有关此问题的任何信息/帮助，这是我目前的完整子内容。

Sub IMPORTTOLIST()

Dim iCell As Range
Dim iRange1 As String
Dim iRange2 As String
Dim rangeName As String

iRange1 = ActiveCell.Address
iRange2 = ActiveCell.Address
rangeName = iRange1 & ":" & iRange2

For Each iCell In Range(rangeName).Cells

If Range(iRange1) = Range("BT28") Then
Range("BR58:CA58").Select
Selection.Copy
Range(iRange2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If

Next iCell

End Sub
excel