1、通常我们从网站后台导出的标题是带日期的，所以首先需要把标题和日期分开：选中标题列——数据——分列——下一步——分隔符号——完成
3、在宏界面的菜单→插入→模块→粘贴下代码：Sub test()For Each cell In Range("A1多唉捋胝:A21")cell.Offset(0, 1) = cell.Hyperlinks(1).AddressNextEnd Sub注意事项：代码中A1:A21为实际有超链接单元格区域，即标题的实际行数，所以操作的时候需要根据你实际有超链接单元格的区域进行调整
