用宏操作。右键当前工作表，查看代码。粘贴如下代码。运行（F5键）即可。12345 Sub b()For i = 1 To [a65536].End(3).Row Hyperlinks.Add Anchor:=Range("A" & i), Address:=Range("B" & i).ValueNext iEnd Sub
