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 yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

This site uses Akismet to reduce spam. Learn how your comment data is processed.