批量建立圖片超鏈接


VBA代碼參考

Sub 建立圖片超鏈接()
    '獲取A列有數(shù)據(jù)的總行數(shù)
    maxir = [A65536].End(3).Row
    '對C2:AC&maxir 范圍清除數(shù)據(jù)
    Range("c2:aC" & maxir) = ""  
    '按已有數(shù)據(jù)所有行數(shù)進(jìn)行循環(huán)
    For ir = 2 To maxir
        '對每行的B列進(jìn)行循環(huán)查找數(shù)字
      For iNum = 1 To Len(Range("b" & ir))
        '判斷是否為數(shù)字，將數(shù)字存在ac列
        If IsNumeric(Mid(Range("b" & ir), iNum, 1)) = True Then
          Range("ac" & ir) = Range("ac" & ir) & Mid(Range("b" & ir), iNum, 1)
        End If
      Next iNum   
      '建立圖片鏈接，根據(jù)ac列的數(shù)字，決定建立幾個(gè)圖片鏈接
      For ic = 1 To Range("ac" & ir)
        '選中單元格
        Cells(ir, 3 + ic - 1).Select
        '加入鏈接圖片函數(shù)
        ActiveCell.FormulaR1C1 = "=HYPERLINK(""" & ThisWorkbook.Path & "\" & Cells(ir, 1) & ic & ".jpg"",""" & Cells(ir, 1) & ic & """)"
      Next ic
    Next ir
    '清除ac列數(shù)字
    Range("ac:aC") = ""
End Sub
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請結(jié)合常識與多方信息審慎甄別。
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡書系信息發(fā)布平臺，僅提供信息存儲服務(wù)。

友情鏈接更多精彩內(nèi)容