वीबीए एक्सेल: सभी कार्यपुस्तिकाओं के माध्यम से कॉलम और लूप में प्रत्येक सेल के लिए फ़ंक्शन निष्पादित कैसे करें?

Question

यहाँ मैं अब तक है:

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 

ट्रिम समारोह केवल पहले कार्यपत्रक में कोशिकाओं पर काम करता है, लेकिन वह यह है। कोई सुझाव?

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

अपने कोड में आंतरिक पाश करने के लिए, जबकि यह ws variable का संदर्भ लेना चाहिए activesheet संदर्भित करता है: यह एक में

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

:

अग्रिम धन्यवाद

Answer 1

आप इस लाइन को बदलने की जरूरत शीट का प्रतिनिधित्व करते हैं।