इस सेल के आधार पर सेल की पूरी सामग्री को ले जाएं कि इसमें एक विशिष्ट वर्ण है - एक्सेल 2007 - एक्सेल-वीबीए, एक्सेल -2007, वीबीए, एक्सेल

मैं एक उपनिवेश (:) के लिए कॉलम A की खोज करने के लिए Excel 2007 में मैक्रो बनाना चाहता हूं (और यदि पाया जाता है, तो पूरे सेल मान को एक ही पंक्ति में ले जाएं Column B। इस प्रकार यह मेरा डेटा इस तरह दिखता है:

Column A     Column B
1:256
13.049
1:200
1:100
1:200
1:512
> 1:512
13.909
1:100
1:512
1:512
16.610

और इस पोस्ट को चलने वाले मैक्रो की तरह दिखने के लिए:

Column A    Column B
1:256
13.049
1:200
1:100
1:200
1:512
> 1:512
13.909
1:100
1:512
1:512
16.610

विचार किसी को भी?

उत्तर:

यहाँ अपना काम दिखाने के लिए हमेशा अच्छा होता है ..

इसके बाद अपना काम दिखाने की कोशिश करें लेकिन मैं इस समय आपकी मदद करता हूँ

परीक्षण किया - ठीक काम

Sub tested()

Dim rng As Range
Dim lrow As Integer

With ActiveSheet
lrow = .Range("A" & Rows.Count).End(xlUp).Row

For Each rng In .Range("A2:A" & lrow)

If InStr(rng.Value, ":") > 0 Then

rng.Offset(0, 1).Value = rng.Value
rng.Value = ""
End If

Next rng

End With

End Sub