ใน Excel ฉันวาง URL จำนวนมาก แต่ไม่ใช่ลิงก์สด - ฉันจะแปลงเป็นกลุ่มเป็นลิงก์สดได้อย่างไร

ใน Excel ฉันวาง URL จำนวนมากลงในคอลัมน์

อย่างไรก็ตามมันไม่ใช่ลิงค์สดหลังจากการวาง

ฉันจะแปลงเป็นกลุ่มทั้งหมดให้เป็นลิงก์แบบทันทีได้อย่างรวดเร็ว

สิ่งนี้ควรทำเคล็ดลับ

Sub Test()
  Dim rngRange As Range
  For Each rngRange In Selection
    If Trim(rngRange.Value) <> "" Then
      rngRange.Hyperlinks.Add _
               Anchor:=Cells(rngRange.Row, rngRange.Column), _
               Address:=rngRange.Text, _
               ScreenTip:=rngRange.Text, _
               TextToDisplay:=rngRange.Text
      End If
  Next rngRange
End Sub

หากคุณต้องทำมากฉันจะขอขึ้นแป้นพิมพ์ลัด

ในการทำให้สิ่งนี้เกิดขึ้นใน Excel 2010 (คำชมจาก@Excellll )

1. ไปที่ "มุมมอง" จากนั้นคลิกปุ่ม "มาโคร"
2. สิ่งนี้จะเปิดกล่องโต้ตอบเพื่อถามชื่อของแมโครใหม่ ป้อน "ทดสอบ" และคลิก "สร้าง"
3. นี่จะเป็นการเปิดตัวแก้ไข VBA คัดลอกรหัสด้านบนลงในหน้าต่างใหม่นี้
4. ตอนนี้ไปที่สเปรดชีตของคุณและเลือกช่วงของเซลล์ด้วยการเชื่อมโยงหลายมิติที่คุณต้องการแก้ไข
5. กลับไปที่เครื่องมือแก้ไข VBA กด F5 สิ่งนี้จะรันโค้ด