VBA复制从纸张的特定细胞在另一个细胞

Question

这里是我的情况

我有这样的代码在我的宏：该代码是良好的，没有必要去改变它。

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