400 adet hücreyi bir hücrede toplamak

[achil19]

Herkese selamlar,
Telfondan yazdığım için dosya yükleyemiyorum.
Elimde bir excel dosyası var.
A2 hücresinden, A410 hücresine kadar giden değerler var.
Amacım 410 satırı, C2 hücresine yanyana kopyalamak.
bunu nasıl yapabilirim
Yardımlarınız için şimdiden teşekkürler

 

[Muzaffer Ali]

Aşağıdaki kodları deneyin.

Sub Ortalama()
    Dim Bak As Integer
    Dim AradakiIsaret As String
    AradakiIsaret = ", "
    Range("C2").Value = Range("A2").Value
    For Bak = 3 To 410
        Range("C2").Value = Range("C2").Value & AradakiIsaret & Range("A" & Bak).Value
    Next
End Sub