मेरे पास एक लंबी, अल्पविराम से अलग की गई सूची है जो एक्सेल में इस तरह दिखती है:
401.50,0.027
402.00,0.028
402.50,0.029
403.00,0.031
403.50,0.032
404.00,0.034
404.50,0.037
क्या इसे दो अलग-अलग स्तंभों में बदलने का एक सरल तरीका है? 800 से अधिक मूल्य हैं, और मैं वास्तव में उन सभी को अलग-अलग करने के लिए उत्सुक नहीं हूं।
जवाबों:
क्या आपने पाठ से कॉलम तक का उपयोग करने की कोशिश की है ?
आप दो अलग-अलग स्तंभों में दो सूत्रों का उपयोग भी कर सकते हैं।
अल्पविराम के बाईं ओर मान प्राप्त करने के लिए:
=0+LEFT(K1,FIND(",",K1)-1)
कॉमा के दाईं ओर मान प्राप्त करने के लिए:
=0+RIGHT(K1,LEN(K1)-FIND(",",K1))
जहां K1इस तरह के रूप में, प्रारंभिक स्ट्रिंग401.50,0.027
** 0+इससे पहले कि सूत्र निकाले गए पदार्थों को संख्यात्मक डेटा में परिवर्तित कर दें।
टेक्स्ट एडिटर में कॉपी / पेस्ट करें सभी स्पेस कैरेक्टर्स को कैरिजेटर्न / लाइनफीड के साथ बदलें एक TXT फाइल के रूप में सेव करें। Excel में फ़ाइल खोलें।
अपनी सूची को संसाधित करने के लिए थोड़ा vba लिखें
यह मान लेता है कि मानों की सूची किसी एकल कक्ष में है और चयनित है। निम्नलिखित कोशिकाओं में परिणाम डालता है
Sub zx()
Dim a() As String
Dim v As Variant
Dim i As Long
Dim j As Long
a = Split(ActiveCell.Value, " ")
ReDim v(1 To UBound(a) + 1, 1 To 2)
For i = 1 To UBound(a) + 1
j = InStr(a(i - 1), ",")
v(i, 1) = Val(Left(a(i - 1), j - 1))
v(i, 2) = Val(Mid(a(i - 1), j + 1))
Next
ActiveCell.Offset(1, 0).Resize(UBound(a) + 1, 2) = v
End Sub