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