我可以循环这个宏X次，但仍将一些单元格引用增加+1吗

Question

这个宏可能没有正确/有效地设置，但它可以工作，所以我不敢更改它。我记录了它，没有手动估算太多。

基本上，我每天都会更改日期，这很好，但我在想，有没有一种方法可以循环宏，在每次宏完成后更改粗体突出显示的单元格？即F107变成F108？直到F列工作簿卡中没有值？如果最后一部分太复杂，我可以计算出我需要它循环的次数，然后输入。谢谢：(

Sub Purge()
Workbooks("Memos 04.09.2020").Sheets("Memos").Range("A1").AutoFilter Field:=4, Criteria1:=Workbooks("Cards 04.09.2020").Sheets("Cards").Range _ (**"F107"**).Value
Workbooks("Transactions 04.09.2020").Sheets("Transactions").Range("A1").AutoFilter Field:=2, Criteria1:=Workbooks("Cards 04.09.2020").Sheets("Cards").Range _ (**"F107"**).Value
Dim objWord As New Word.Application
Workbooks("Cards 04.09.2020").Sheets("Cards").Range _ ("**B107**:**C107**").Copy

With objWord  
.Documents.Add  
.Selection.PasteAndFormat (wdFormatPlainText)  
.Selection.TypeParagraph
.Visible = True
Workbooks("Cards 04.09.2020").Sheets("Cards").Range _ ("**D107:F107**").Copy
.Selection.PasteAndFormat (wdFormatPlainText)
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.TypeText ("Transactions")
.Visible = True
Workbooks("Transactions 04.09.2020").Sheets("Transactions").Range("E:G").Copy
.Selection.PasteExcelTable False, True, False
.Selection.TypeParagraph
.Visible = True
Workbooks("Memos 04.09.2020").Sheets("Memos").Range("E:K").Copy
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.TypeText ("Memos")
.Selection.PasteExcelTable False, True, False
.Visible = True
End With
End Sub

Answer 1

问题并不完全清楚。如果您想将值从F107更改为F u中最后一个写入的单元格，可以使用以下代码：

letztezeile = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row

例如，您可以在Brackets("F"&letztezeile(中尝试更改列。