VBA从另一个单元格的工作表中复制特定单元格

这是我的情况

我在我的macros中有这样的代码：代码是好的，不需要改变它。

Sheets("Water").Select Cells.Select Range("A2").Select ActiveCell.Formula = "=SUM(D2:N2)+((COUNTIF(D2:N2,""GOLD"")+COUNTIF(D2:N2,""PLATIN""))*1)+((COUNTIF(D2:N2,""PLPLUS"")+COUNTIF(D2:N2,""AMBASS""))*2)" Range("A2").AutoFill Destination:=Range("A2:A" & Cells(Rows.Count, 2).End(xlUp).Row) LastRow = Range("A2").End(xlDown).Row Cells(LastRow + 2, "A").Formula = "=SUM(A2:A" & LastRow & ")" Dim LRowA As String, LRowB As String LRowA = [A4200].End(xlUp).Address Range("A:A").Interior.ColorIndex = xlNone Range("A2:" & LRowA).Interior.ColorIndex = 33 Range("A:A").HorizontalAlignment = xlCenter 

关于这个守则我们在表格“水”。

我有一个公式和结果出现在表“水”：

  Cells(LastRow + 2, "A").Formula = "=SUM(A2:A" & LastRow & ")" 

现在我希望这个结果出现在单元格M8的表单“下载”中。

可能吗…..

Answer 1

你的意思是？ 缩短了你的代码。

 Sub x() Dim LRowA As String, LRowB As String With Sheets("Water") .Range("A2:A" & .Cells(Rows.Count, 2).End(xlUp).Row).Formula = "=SUM(D2:N2)+((COUNTIF(D2:N2,""GOLD"")+COUNTIF(D2:N2,""PLATIN""))*1)+((COUNTIF(D2:N2,""PLPLUS"")+COUNTIF(D2:N2,""AMBASS""))*2)" LastRow = .Range("A2").End(xlDown).Row .Cells(LastRow + 2, "A").Formula = "=SUM(A2:A" & LastRow & ")" LRowA = .Range("A4200").End(xlUp).Address .Range("A:A").Interior.ColorIndex = xlNone .Range("A2:" & LRowA).Interior.ColorIndex = 33 .Range("A:A").HorizontalAlignment = xlCenter End With Sheets("Download").Range("M8").Formula = "=""Bottle of water: "" & SUM(Water!A2:A" & LastRow & ")" End Sub