VBA代碼參考
Sub 建立圖片超鏈接()
'獲取A列有數(shù)據(jù)的總行數(shù)
maxir = [A65536].End(3).Row
'對C2:AC&maxir 范圍清除數(shù)據(jù)
Range("c2:aC" & maxir) = ""
'按已有數(shù)據(jù)所有行數(shù)進行循環(huán)
For ir = 2 To maxir
'對每行的B列進行循環(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ù)字剩胁，決定建立幾個圖片鏈接
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
