0

重複の可能性：
VBAを使用して複数のセルからハイパーリンクを抽出する

[修正済み]自分で並べ替えました:)

i = 3 の場合 合計

Cells(i, 11) = Cells(i, 1).Hyperlinks.Item(1).Address
Cells(i, 12) = Cells(i, 2).Hyperlinks.Item(1).Address

 Next i

私はExcelでスクリプトを作成したことがないので、助けていただければ幸いです。

列 1 と 2 からハイパーリンク アドレス (URL) を抽出し、それらを (ハイパーリンクとしてではなく) 別の列に貼り付けます (リンクを含む CSV にエクスポートできるようにします)。

このようなことをループでやりたいのですが、うまくいきません！

ActiveSheet.Cells(i, 11).Value = ActiveSheet.Cells(i, 1).Hyperlinks.Item(1).Address


ActiveSheet.Cells(i, 12).Value = ActiveSheet.Cells(i, 2).Hyperlinks.Item(1).Address

ありがとう！

4

1 に答える 1

0

以下は、シートの最初の 2 列にあるすべてのハイパーリンクを取得し、それらを次のシートに書き込む方法の例です。 

Sub getHyperlinks()
'used to keep track of where we are at when writing to the second sheet
Dim iWriteRow As Long
'used to hold how many columns to look through
Dim numberOfCols As Long
numberOfCols = 2
'set initial position
iWriteRow = 1

'variable used in looping through the hyperlinks
Dim h As Hyperlink
'loop through all hyper links on the sheet
For i = 1 To numberOfCols
    For Each h In ActiveWorkbook.Sheets(1).Columns(i).Hyperlinks
        'write them to the next sheet
        ActiveWorkbook.Sheets(2).Cells(iWriteRow, i).Value = h.Address
        'add 1 to our counter
        iWriteRow = iWriteRow + 1
    Next
    iWriteRow = 1
Next i
End Sub
于 2012-11-13T16:18:15.447 に答える