एक्सेल - अगर स्थिति पूरी हो जाती है तो उपरोक्त सेल के अंतिम मूल्य की प्रतिलिपि बनाएँ - vba, excel-vba

मैं उपरोक्त अंतिम मूल्य के साथ कॉलम एच (CODIGO) पर खाली कोशिकाओं को भरना चाहता हूं, लेकिन केवल अगर कॉलम बी (डीआर) खाली है, तो इस तरह:

RegistroPROYECTOS

मुझे इसे लगभग चार अलग-अलग स्प्रेडशीट्स में करना है। 1200-2000 पंक्तियां, इसलिए मैं एक-एक करके नहीं जा सकता ..

उत्तर:

उत्तर № 1 के लिए 1

उपयोग करने का प्रयास करें

Public Sub FillBlanks()
Dim rng As Range
Dim c As Range

With ActiveSheet
Set rng = .Range(.Cells(1, "H"), .Cells(.Cells(.Rows.Count, "B").End(xlUp).Row, "H"))
End With

For Each c In rng.SpecialCells(xlCellTypeBlanks)
If IsEmpty(c.Offset(0, Columns("B").Column - c.Column)) Then c.Value2 = c.Offset(-1, 0).Value2
Next c
End Sub

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