พื้นที่ที่ไม่ต้องการใน URLS ใน Excel 2010

ฉันมีรายการ URL 23000 รายการในแผ่นงาน Excel แต่สิ่งเหล่านี้ดูเหมือนว่ามีช่องว่างเพิ่มเติมในดังนั้นจึงทำให้ URL ไม่ถูกต้อง

ฉันลองค้นหาและแทนที่และ excel ไม่รู้จักว่ามีช่องว่างเพิ่มเติมในเซลล์

นี่คือตัวอย่างของวิธีที่ฉันวาง URL ในเซลล์

/searchresult.asp/store/store/tskay/08REWA248

แต่นี่คือสิ่งที่อยู่ในเซลล์:

/searchresult.asp/store/store/
            tskay/08REWA248

และ url จะกระจายไปทั่วสองบรรทัด

ฉันสามารถตรวจสอบให้แน่ใจว่าข้อความไม่ได้อยู่ในเซลล์และดูเหมือนว่าจะรวมเข้าด้วยกันในบรรทัดเดียว แต่ถ้าฉันแก้ไขเซลล์ในอย่างไรก็ตามมันก็กระโดดกลับไปที่จะถูกแยกออกจากเซลล์พ่วง

ฉันลองวางแผ่นจดบันทึกแล้วฉันจะได้ URL ต่อไปนี้:

/searchresult.asp/
            store/store/tskay/08REWA248FE/

ด้วยใบเสนอราคาและช่องว่างเมื่อฉันค้นหาและแทนที่สิ่งเหล่านี้และวาง url ที่สะอาดแล้วกลับสู่ excel มันจะย้อนกลับไปสู่ ​​url เดิมที่มีช่องว่าง

ฉันได้ลองข้อความไปยังคอลัมน์เพื่อแยก URL แล้วทำการต่อกลับกัน แต่ทุกครั้งที่ตรงไปยัง URL เดิมด้วยช่องว่างเพิ่มเติม

ถ้าฉันคลิกเข้าไปในเซลล์และลบพื้นที่มันก็ดี แต่ด้วย 23,000 URL ฉันไม่สามารถทำสิ่งนี้กับพวกเขาได้ทั้งหมดและฉันไม่สามารถหาสิ่งใดออนไลน์เพื่อช่วยได้!

ฉันจะแก้ไขได้อย่างไร

ข้อความของคุณมีการขึ้นบรรทัดใหม่หรือขึ้นบรรทัดใหม่ คุณสามารถลบออกได้ในคราวเดียวด้วยขั้นตอน VBA แบบง่าย ๆ

อย่าลืมบันทึกแผ่นงานของคุณก่อนทำตามขั้นตอนด้านล่าง (คุณจะต้องสำรองข้อมูลในกรณีที่ทำสิ่งที่คุณไม่คาดหวังและทำลายข้อมูลของคุณ)

ก่อนอื่นให้เลือกทั้งคอลัมน์ของ URL จากนั้นเปิดตัวแก้ไข VBA โดยการกด Alt + F11 และไปที่ Insert & gt; & gt; Module. วางรหัสต่อไปนี้ลงในช่องข้อความที่เปิดอยู่

Sub FixURL()
Dim r As Range, URLs() As Variant
Dim rgx As Object
Set r = Selection
'Load contents of selection into an array
URLs = r.Value
'Set up a regular expression object for finding and replacing the line breaks and spaces
Set rgx = CreateObject("vbscript.regexp")
rgx.Global = True
rgx.Pattern = "\r?\n[ \t]+"
'Remove problem text for each URL
For i = LBound(URLs, 1) To UBound(URLs, 1)
    URLs(i, 1) = rgx.Replace(URLs(i, 1), "")
Next i
'Print cleaned up URLs back to sheet
r.Value = URLs
End Sub

กด F5 เพื่อรันโค้ด การดำเนินการนี้ควรลบตัวแบ่งบรรทัดและช่องว่างเพิ่มเติมสำหรับ URL ทั้งหมดของคุณ