İki sütunu birleştirme

[hadromer]

Merhaba,
Bir sayfada var olan tüm sütunları ardışık olarak birleştirmek istiyorum.
Örneğin sayfamda A-CK kadar sütun var..
B ile C, D ile E, F ile G gibi ardışık sütunlar birleşecek. birleşirken her iki hücre arasına ± işareti gelecek.

Örneğin S01 başlıklı A3 hücresinde 531 var. B3 hücresinde ise 0,1 var. Birleşince S01 başlığı altında 531±0,1 şeklinde olacak.
Değeri 0 olan hücreler ise 0,00±0,00 şeklinde olacak (örnek dosyada 0,00 şeklinde yapamadım)
örnek dosya ekledim.
yardımlarınız için şimdiden teşekkür ederim.

 

[dEdE]

Örnek dosyanızda dener misiniz?

Sub Test()
    sk = Cells(2, Columns.Count).End(1).Column
    ss = Cells(Rows.Count, "A").End(3).Row
For j = 2 To sk Step 2
    For i = 3 To ss
       If Cells(i, j) = 0 Then Cells(i, j) = Format(Cells(i, j), "#,##0.00")
       If Cells(i, j + 1) = 0 Then Cells(i, j + 1) = Format(Cells(i, j + 1), "#,##0.00")
       Cells(i, j) = Cells(i, j) & Chr(177) & Cells(i, j + 1)
    Next i
Next j
End Sub

 

[hadromer]

Örnek dosyanızda dener misiniz?

Sub Test()
    sk = Cells(2, Columns.Count).End(1).Column
    ss = Cells(Rows.Count, "A").End(3).Row
For j = 2 To sk Step 2
    For i = 3 To ss
       If Cells(i, j) = 0 Then Cells(i, j) = Format(Cells(i, j), "#,##0.00")
       If Cells(i, j + 1) = 0 Then Cells(i, j + 1) = Format(Cells(i, j + 1), "#,##0.00")
       Cells(i, j) = Cells(i, j) & Chr(177) & Cells(i, j + 1)
    Next i
Next j
End Sub

Merhaba,
öncelikle teşekkür ederim.Şimdi deneyebildim. Evet istediğim gibi birleştirme yapıyor ancak bu birleştirmeyi ana veri üzerinde yapıyor. Ek olarak "Std. Deviation" adlı sütunların birleştirme sonrası silinmesi gerekiyor. Bu konuda yardımcı olabilir misiniz?

 

[dEdE]

... ancak bu birleştirmeyi ana veri üzerinde yapıyor. Ek olarak "Std. Deviation" adlı sütunların birleştirme sonrası silinmesi gerekiyor...

Merhaba,
"İkinci bir sayfada birleştirme yapalım, Std. Deviation sütunu da olmasın". Şeklinde anladım.
Eğer böyle ise;

Sub Test()
    Sheets("Sayfa1").Copy After:=Sheets(1)
    sk = Cells(2, Columns.Count).End(1).Column
    ss = Cells(Rows.Count, "A").End(3).Row
    For j = 2 To sk Step 2
        For i = 3 To ss
           If Cells(i, j) = 0 Then Cells(i, j) = Format(Cells(i, j), "#,##0.00")
           If Cells(i, j + 1) = 0 Then Cells(i, j + 1) = Format(Cells(i, j + 1), "#,##0.00")
        Cells(i, j) = Cells(i, j) & Chr(177) & Cells(i, j + 1)
        Next i
    Next j
    For k = sk To 3 Step -2
        Columns(k).Delete Shift:=xlToLeft
    Next k
    Cells.EntireColumn.AutoFit
End Sub

 

[hadromer]

Merhaba,
"İkinci bir sayfada birleştirme yapalım, Std. Deviation sütunu da olmasın". Şeklinde anladım.
Eğer böyle ise;

Sub Test()
    Sheets("Sayfa1").Copy After:=Sheets(1)
    sk = Cells(2, Columns.Count).End(1).Column
    ss = Cells(Rows.Count, "A").End(3).Row
    For j = 2 To sk Step 2
        For i = 3 To ss
           If Cells(i, j) = 0 Then Cells(i, j) = Format(Cells(i, j), "#,##0.00")
           If Cells(i, j + 1) = 0 Then Cells(i, j + 1) = Format(Cells(i, j + 1), "#,##0.00")
        Cells(i, j) = Cells(i, j) & Chr(177) & Cells(i, j + 1)
        Next i
    Next j
    For k = sk To 3 Step -2
        Columns(k).Delete Shift:=xlToLeft
    Next k
    Cells.EntireColumn.AutoFit
End Sub

Çok teşekkür ederim, ellerinize sağlık