VBA Excel: Bir sütundaki her hücre için bir işlev nasıl yürütülür ve tüm çalışma kitaplarına nasıl geçilir?

Question

İşte ben bugüne kadar ne var:

Sub TrimColumnD() 
    Dim ws As Worksheet 

    For Each ws In ThisWorkbook.Worksheets 
    Dim c As Range 
     For Each c In ActiveSheet.UsedRange.Columns("D").Cells 
      c.Value = WorksheetFunction.Trim(c.Value) 
     Next c 
    Next ws 

End Sub 

trim fonksiyonu sadece ilk çalışma sayfasındaki hücreleri üzerinde çalışır, ama o kadar. Baska öneri? İç döngü bu ws variable başvurmalıdır ederken ActiveSheet atıfta Kodunuzda

For Each c In ws.UsedRange.Columns("D").Cells 

: bu seferki içine

For Each c In ActiveSheet.UsedRange.Columns("D").Cells 

: önceden

Teşekkür

Answer 1

bu hat değiştirmek gerekir sayfayı temsil eden