Excelはハイパーリンクの数式をフレンドリーな名前のリンクに変換します

Question

HYPERLINKの式を持つセルの列をlink_locationにハイパーリンクされたフレンドリ名だけのセルに変換する必要があります。例えば、= HYPERLINK（ "https://www.google.com/search?hl=en&q= "& SUBSTITUTE（A2、""、 "+"）& "& TBM = ISCH & gws_rd = SSL"、 "Gは画像"）それにGの画像を有している細胞に数式が生成するハイパーリンクにハイパーリンクされます。 https://www.google.com/search?hl=en&q=search+term&tbm=isch&gws_rd=ssl。私はWordに貼り付けてExcelに貼り付けることでこれを行うことができますが、コピー/ペーストトリックかマクロかにかかわらず、Excel内で行う必要があります。私は理解して考える

Answer 1

、これは（必要に応じてrngを調整）してみてください：

編集を：新しいコードを、以下のコメントにつき：

Sub replace_Hyperlink_Formula_With_Text() 
Dim linkWS As Worksheet, newWS As Worksheet 
Dim linkText$, url$, address$, subPart$ 
Dim cel As Range, rng As Range 
Dim commaPos& 

Set linkWS = Sheets("Sheet1") ' Change this to the sheet name that has =Hyperlink("http://...","Link") 
Set newWS = Sheets.Add 
newWS.Name = "Links Only" ' or whatever you want the non-Hyperlink Formula sheet to be called. 

Set rng = linkWS.Range("A1:A2") ' Edit this as needed 

For Each cel In rng 
    linkText = cel.Value 
    commaPos = InStrRev(cel.Formula, ",") 

    subPart = WorksheetFunction.Substitute(linkWS.Range("A2"), " ", "+") 
    url = Mid(cel.Formula, WorksheetFunction.Search("(", cel.Formula) + 2, commaPos) 
    Debug.Print url 

    commaPos = InStrRev(url, ",") 
    url = Left(url, commaPos - 2) 
    url = WorksheetFunction.Substitute(url, "&", ";", 1) 
    Debug.Print url 


    ' Now, trim SUBSTITUTE out of it 
    Dim leftUrl$, rightURL$ 
    leftUrl = Left(url, WorksheetFunction.Search(";", url) - 2) 
    rightURL = Mid(url, WorksheetFunction.Search("&", url) + 2, Len(url)) 
    url = leftUrl & subPart & rightURL 
    Debug.Print url 
    ' cel.ClearContents 
    address = cel.address 
    newWS.Range(address).Hyperlinks.Add anchor:=newWS.Range(address), address:=url, TextToDisplay:=linkText 
Next cel 

End Sub 

それは場しのぎだが、それは&Substitute...&を解析することに成功しなければなりません部品を交換して、A2のものと交換してください。