simply,
А, ну так нужно точнее формулировать проблему. А то вы пишите:
simplyМне нужно получить строку адреса
А теперь оказывается:
simply Как мне пробежаться по колонке "A" и перенести полностью адрес в колонку "B"
Вам бы не помешало ознакомиться с
12573325 . Это я к тому, что пока не вижу попыток с вашей стороны, кроме как, чтобы все сделали за вас.
Хотя мне не жалко:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Option Explicit
Sub GetHyperLinks()
Dim str As String
Dim intLastRow As String
Dim sh As Worksheet
Dim i As Integer
Set sh = Sheets(1)
intLastRow = sh.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To intLastRow
str = Sheets(1).Cells(i, 1).Hyperlinks.Item(1).Address
Sheets(1).Cells(i, 2) = str
Next
End Sub
