रेंज में खाली कोशिकाओं को अनदेखा करें - एक्सेल, वीबीए, एक्सेल-वीबीए, रेंज

मेरे पास सिर्फ 2 श्रेणियां हैं रेंज ("ए 1: ए 10") और रेंज ("बी 1: बी 10") कहें और फिर यह कोड चलाएं:

Dim a, b, i, j
i = 2: j = 2


For Each a In range("A1:A10")
For Each b In range("B1:B10")
range("D" & i).Value = a
range("E" & j).Value = b
j = j + 1
i = i + 1
Next b
Next a

अंत उप

मुझे एक बनाने की जरूरत है If रिक्त स्थान छोड़ने की स्थिति लेकिन यह काम नहीं कर रहा है।

दूसरा सवाल:

अगर मुझे चयन के रूप में सेट करने के बाद सीमा का नाम देना था और xltodown आप यह कैसे करेंगे?

उत्तर:

जवाब के लिए 0 № 1

आप इसे इस तरह से कर सकते हैं:

Dim a, b, i, j
i = 2: j = 2


For Each a In range("A1:A10")
For Each b In range("B1:B10")
If b.Value="" Then
GoTo ContinueInnerForLoop
End If
range("D" & i).Value = a
range("E" & j).Value = b
j = j + 1
i = i + 1
ContinueInnerForLoop:
Next b
Next a

जबसे जारी रहना वीबीए में समर्थित नहीं है, एक लेबल का उपयोग करने और कूदने के लिए पसंदीदा तरीका है।

आशा करता हूँ की ये काम करेगा!


संबंधित सवाल
सबसे लोकप्रिय