Hocam durum şöyle. 1'den 6315 satıra kadar 12.75 satır yüksekliğine sahip olanlar da var 15 olanlar da var 15.75 olanlar da var 35.45 olanlar da var. Benim istediğim 12.75 olan satır aralıklarını 15 yapsın.
Sub ChangeRowHeight()
Dim ws As Worksheet
Dim cell As Range
' Aktif çalışma sayfasını al
Set ws = ActiveSheet
' Çalışma sayfasındaki tüm satırları kontrol et
For Each cell In ws.UsedRange.Rows
' Satır yüksekliği 12.75 olanları bul ve yüksekliğini 15 yap
If cell.RowHeight = 12.75 Then
cell.RowHeight = 15
End If
Next cell
End Sub