Excel – Hücre değerlerini topla ve birleştir

Sum cells and merge 

    Toplam = 0
    For i = 1 To Selection.Rows.Count
      Toplam = Toplam + Selection.Cells(i, 1)
      Selection.Cells(i, 1).Clear
    Next i
    With Selection
        .Merge
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Selection.Cells(1, 1) = Toplam

Bir Cevap Bırakın

XHTML: Şu etiketleri kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>