Note: The other languages of the website are Google-translated. Back to English
English English

วิธีคัดลอกไฮเปอร์ลิงก์จากเซลล์หนึ่งไปยังอีกเซลล์หนึ่งใน Excel

สมมติว่าฉันมีรายการค่าในคอลัมน์ A และแต่ละเซลล์มีไฮเปอร์ลิงก์ที่แตกต่างกันตอนนี้ฉันต้องการคัดลอกเฉพาะไฮเปอร์ลิงก์ที่ไม่มีข้อความไปยังคอลัมน์ E อื่นตามภาพหน้าจอต่อไปนี้ อาจไม่มีวิธีโดยตรงในการแก้งานนี้ใน Excel แต่ที่นี่ฉันสามารถแนะนำรหัส VBA สำหรับจัดการกับมันได้

doc คัดลอกไฮเปอร์ลิงก์ไปยังเซลล์อื่น 1

คัดลอกไฮเปอร์ลิงก์จากเซลล์หนึ่งไปยังอีกเซลล์หนึ่งด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวา คัดลอกไฮเปอร์ลิงก์จากเซลล์หนึ่งไปยังอีกเซลล์หนึ่งด้วยรหัส VBA

หากต้องการคัดลอกเฉพาะที่อยู่ไฮเปอร์ลิงก์โดยไม่มีข้อความไปยังเซลล์อื่นรหัสต่อไปนี้สามารถช่วยคุณได้โปรดดังนี้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: คัดลอกไฮเปอร์ลิงก์จากเซลล์หนึ่งไปยังอีกเซลล์หนึ่งเท่านั้น:

Sub CopyHyperlinks()
'Uodateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim I As Integer
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Count
        If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
            If xSRg(I).Hyperlinks.Count = 1 Then
                xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
            End If
        End If
    Next
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์ที่คุณต้องการคัดลอกไฮเปอร์ลิงก์เท่านั้นดูภาพหน้าจอ:

doc คัดลอกไฮเปอร์ลิงก์ไปยังเซลล์อื่น 02

4. จากนั้นคลิก OKจากนั้นเลือกเซลล์ที่คุณต้องการวางไฮเปอร์ลินเฉพาะในกล่องโต้ตอบอื่นดูภาพหน้าจอ:

doc คัดลอกไฮเปอร์ลิงก์ไปยังเซลล์อื่น 03

5. และมีการคัดลอกที่อยู่ไฮเปอร์ลิงก์จากเซลล์ดั้งเดิมไปยังเซลล์ที่ระบุตามที่คุณต้องการดูภาพหน้าจอ:

doc คัดลอกไฮเปอร์ลิงก์ไปยังเซลล์อื่น 04

หมายเหตุ: โค้ดนี้ยังช่วยให้คุณคัดลอกไฮเปอร์ลิงก์จากแผ่นงานหนึ่งไปยังอีกแผ่นงานได้ตามที่คุณต้องการ


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab

 

จัดเรียงความคิดเห็นโดย
ความคิดเห็น (13)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี จะทำอย่างไรถ้าฉันต้องการคัดลอกไฮเปอร์ลิงก์จากชีต A เซลล์ A5 ไปยังชีต B เซลล์ A5
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณอาปิต

ฉันได้อัปเดตโค้ด VBA แล้ว ตอนนี้ คุณสามารถใช้ในสองแผ่นงานได้ตามต้องการ โปรดลอง หวังว่าจะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการคัดลอกลิงก์ในหลายแผ่นของไฟล์หนึ่งไปยังอีกไฟล์หนึ่ง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี .. ถ้าฉันต้องการคัดลอกไฮเปอร์ลิงก์ผ่าน vlookup ล่ะ ฉันมีสูตรอยู่แล้ว แต่เมื่อฉันคลิกไฮเปอร์ลิงก์ "ไม่สามารถเปิดไฟล์ที่ระบุ" จะปรากฏขึ้น

โปรดช่วยฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานไม่ได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รักมัน ขอบคุณมากค่ะ.
รักจากสาธารณรัฐโดมินิกัน :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานไม่ได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ให้บอกว่าในเซลล์ A1 ของคุณเป็นไฮเปอร์ลิงก์ ดังนั้นหากต้องการรับเส้นทางของไฮเปอร์ลิงก์ ให้สร้างสูตรดังนี้:
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้ไม่ได้ผลสำหรับฉันเช่นกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันยอดเยี่ยมและใช้งานได้ ฉันชอบคัดลอกและวางโค้ดของคนอื่น :D
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานไม่ได้สำหรับฉัน ข้อเท็จจริงที่ว่าฉันยังคงใช้ Excel 2007 มีความสำคัญหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ตกลง คุณจะไม่เผยแพร่ความคิดเห็นของฉัน ซึ่งยุติธรรม แต่ถ้าคุณต้องการให้ฉันลงทะเบียนและเข้าสู่ระบบ คุณต้องแสดงวิธีแก้ปัญหาที่ได้ผล เพราะ (บนพื้นฐานของอินสแตนซ์ที่ไม่ทำงานตัวเดียว) ฉันไม่เห็นสิ่งใดที่จะชักชวนให้รู้ว่าการลงทะเบียนนั้นมีประโยชน์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันทำการแก้ไขต่อไปนี้เพื่อใช้กับกรณีการใช้งานของฉัน:
คัดลอกย่อยไฮเปอร์ลิงก์ ()
'Uodateby Extendoffice
Dim xSRg เป็นช่วง
Dim xDRg เป็นช่วง
หรี่ฉันเป็นจำนวนเต็ม
Dim xAddress เป็นสตริง
เกี่ยวกับข้อผิดพลาดต่อไป
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("โปรดเลือกช่วงเดิมที่คุณต้องการคัดลอกไฮเปอร์ลิงก์:", "KuTools For Excel", xAddress, , , , , 8)
ถ้า xSRg ไม่มีอะไร ให้ออกจาก Sub
Set xDRg = Application.InputBox("โปรดเลือกช่วงใหม่ที่คุณต้องการวางไฮเปอร์ลิงก์เท่านั้น", "KuTools For Excel", , , , , , 8)
ถ้า xDRg ไม่มีอะไรให้ออกจาก Sub
ตั้งค่า xDRg = xDRg(1)
สำหรับฉัน = 1 ถึง xSRg.Count
ถ้า xSRg(I).Hyperlinks(1).Address <> "" หรือ xSRg(I).Hyperlinks(1).SubAddress <> "" แล้ว
ถ้า xSRg(I).Hyperlinks.Count = 1 แล้ว
xDRg(I).Hyperlinks.Add Anchor:=xDRg(I), _
ที่อยู่:=xSRg(I).Hyperlinks(1).Address, _
ที่อยู่ย่อย:=xSRg(I).ไฮเปอร์ลิงก์(1).ที่อยู่ย่อย
'ScreenTip:=xSRg(I).Hyperlinks(1).ScreenTip, _
'TextToDisplay:=xSRg(I).Hyperlinks(1).TextToDisplay
End If
End If
ต่อไป
ย่อยสิ้นสุด
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ