पंक्ति में अंतिम खाली सेल नहीं; एक्सेल वीबीए

Question

मेरे पास एक एक्सेल शीट है जिसमें मुझे एक विशिष्ट कॉलम में अंतिम गैर खाली सेल खोजने की आवश्यकता है।

मैं यह कैसे कर सकता हूं?

नीचे दिए गए मेरे लिए यह चयन करेगा, लेकिन यह पहले खाली सेल नहीं होगा, मुझे पंक्ति में अंतिम खाली खाली सेल की आवश्यकता नहीं है।

Worksheets("DTCs").Range("A29").End(xlToRight).Select

Answer 1

मैं यह सिर्फ दूसरी दिशा से खोजते हैं काम कर सकते हैं लगता है, तो कुछ की तरह:

Worksheets("DTCs").Range("IV29").End(xlToLeft).Select 

हालांकि शायद चतुर्थ Excel के संस्करण के आधार पर कुछ और करने के लिए परिवर्तित करने की आवश्यकता होगी (यह 2003 में काम करता प्रतीत होता है)।

Answer 2

मैं मेरी टिप्पणी पर विस्तार किया है इसके बाद के संस्करण समाधान है कि

• पंक्ति 1 में उपयोग नहीं करते हैं Select
• अंतिम सेल के लिए पूरा उपयोग किया जा रहा
• खाली किया जा रहा है पूरी पंक्ति को पूरा प्रदान करने के लिए
• पूरी पंक्ति पूर्ण होने के लिए पूरा करें

Find सेको में विधि nd कोड पहली गैर खाली सेल की स्थापना की एक अधिक सीधा तरीका है

इस लाइन Set rng1 = ws.Rows(1).Find("*", ws.[a1], xlValues, , xlByColumns, xlPrevious) कहते हैं, शीट सेल A1 "DTCa" तो पीछे की ओर देखने में शुरू (यानी पंक्ति 1 में अंतिम सेल से) ROW1 में कॉलम द्वारा कुछ भी ढूंढने के लिए (*)। इस विधि या तो पिछले गैर खाली लगता है या Nothing देता है, एक रिक्त पंक्ति

विशिष्ट चेक के xltoLeft का उपयोग कर

Sub Method1() 
Dim ws As Worksheet 
Dim rng1 As Range 
Set ws = Sheets("DTCs") 
If ws.Cells(1, Columns.Count) = vbNullString Then 
    Set rng1 = ws.Cells(1, Columns.Count).End(xlToLeft) 
    If rng1.Column <> 1 Then 
     'return last used cell 
     MsgBox "rng1 contains " & rng1.Address(0, 0) 
    Else 
    If ws.[a1] = vbNullString Then 
      MsgBox ws.Name & " row1 is completely empty", vbCritical 
     Else 
      'true last used cell is A1 
      MsgBox "rng1 contains " & rng1.Address(0, 0) 
     End If 
    End If 
Else 
    'last cell is non-blank 
    MsgBox ws.Cells(1, Columns.Count) & " contains a value", vbCritical 
End If 
End Sub 

सिफारिश

Sub Method2() 
    Dim ws As Worksheet 
    Dim rng1 As Range 
    Set ws = Sheets("DTCs") 
    Set rng1 = ws.Rows(1).Find("*", ws.[a1], xlFormulas, , xlByColumns, xlPrevious) 
    If Not rng1 Is Nothing Then 
     MsgBox "rng1 contains " & rng1.Address(0, 0) 
    Else 
     MsgBox ws.Name & " row1 is completely empty", vbCritical 
    End If 
End Sub