अगर मैंने आपको सही तरीके से समझा, तो पंक्तियों 1 और 2, आप एक पंक्ति 2 को हटाना चाहते हैं यदि और केवल अगर A1 = A2, C1 = C2, D1 = D2, E1 = E2 और F1 = F2।
मैंने ये ढूंढ निकाला। यह शायद कम हो सकता है लेकिन यह चाल करता है:
Sub DeleteDuplicate()
Dim current As String
ActiveSheet.Range("A1").Activate
Do While ActiveCell.Value <> ""
current = ActiveCell.Address
ActiveCell.Offset(1, 0).Activate
Do While ActiveCell.Value <> ""
If ((ActiveSheet.Range(current).Value = ActiveCell.Value) And (ActiveSheet.Range(current).Offset(0, 2).Value = ActiveCell.Offset(0, 2).Value) And (ActiveSheet.Range(current).Offset(0, 3).Value = ActiveCell.Offset(0, 3).Value) And (ActiveSheet.Range(current).Offset(0, 4).Value = ActiveCell.Offset(0, 4).Value) And (ActiveSheet.Range(current).Offset(0, 5).Value = ActiveCell.Offset(0, 5).Value)) Then
ActiveSheet.Rows(ActiveCell.Row).Delete
Else
ActiveCell.Offset(1, 0).Activate
End If
Loop
ActiveSheet.Range(current).Offset(1, 0).Activate
Loop
End Sub
यह क्या करता है सभी शेष लाइनों के माध्यम से लूप का मूल्यांकन किया जा रहा है, और वर्तमान चर में "मूल" पंक्ति के सेल को संचय करने के लिए ActiveCell का उपयोग करके शेष लाइनों के माध्यम से लूप है । एक बार लूप समाप्त होने के बाद, करंट के नीचे की सेल सक्रिय हो जाती है और आंतरिक मूल्यांकन लूप फिर से शुरू हो जाता है।
अगर मैंने कहीं गड़बड़ की तो मुझे बताने में संकोच न करें :)