我试图:
- 当我点击 A 列中的超链接时
- 将 B 列中的文本内容复制到 Windows 剪贴板
- A 列中的超链接在新的 Chrome 选项卡中打开
A 列和 B 列将有数千行,每行都彼此唯一(单击 A1 链接时必须将 B1 文本复制到剪贴板)。
例如:A1:http://thisisawebsitewithinput.com B2:我需要复制的文本字符串
这是我使用宏所能得到的:
Sub OpenInBrowser()ActiveWorkbook.FollowHyperlink 地址:=ActiveCell.Text End Sub
答案1
试试这个代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = [a1].Address Then Cells(1, 2).Copy
End Sub