我有一个代码，它基本上为B10制作了一个公式，然后将它一直复制下来并将其作为值插回来删除公式并使其更加清洁＆＃39;。
我的问题是我有一个明确的＆＃39; lastrow＆＃39;在这种情况下，这是5000.我可以以某种方式介绍一个lastrow，使其能够将代码复制下来，直到行中没有数据。 （如果要使用特定的列，则可以使用C列。
这可以解决吗？
Sheets("Table").Range("B10").Formula = "=LEFT(F10,4)&E10&D10&C10"
Sheets("Table").Range("B10").Copy
Sheets("Table").Range("B11:B5000").PasteSpecial xlPasteAll
Sheets("Table").Range("B10:B5000").Copy
Sheets("Table").Range("B10:B5000").PasteSpecial xlPasteValues