Excel 如何在包含超链接的单元格中复制文本？

我想确保

Sheets("Add").Cells(x, 2) = Sheets("Scan").Range("A11")

但是，这是有效的。单元格（x，2）将在文本中有一个超链接

是否有办法编辑代码，以便将文本和超链接从

工作表（“添加”）。单元格（x，2）复制到工作表（“扫描”）。范围（“A11”）

子扫描（）
暗淡如长
将ws设置为工作表
最后一排一样长
将计数设置为整数
作为整数的Dim x
lastRow=工作表（“扫描”）。单元格（Rows.count，1）。结束（xlUp）。行
计数=0
对于x=2到最后一行
如果表格（“添加”）.单元格（x，1）=表格（“扫描”）.范围（“B3”），则
表格（“扫描”）。范围（“A11”）=表格（“添加”）。单元格（x，2）
如果结束
下一个
端接头

有几种方法。最简单的方法是复制整个单元格：

Sheets("Add").Cells(x, 2).copy Sheets("Scan").Range("A11")

---

请注意，“复制”方法是源范围的方法，目标是该方法的参数。

由于内存冲突，我不喜欢使用

复制

方法

请尝试更换

Sheets（“Scan”）.范围（“A11”）=Sheets（“Add”）.单元格（x，2）

与

Dim sSubAddress作为字符串，SSCREEENTIP作为字符串，sTextToDisplay作为字符串，sAddress作为字符串
带表格（“添加”）。单元格（x，2）。超链接（1）
sAddress=.地址
sSubAddress=.SubAddress
sScreenTip=.ScreenTip
sTextToDisplay=.TextToDisplay
带工作表（“扫描”）。超链接。添加（锚定：=工作表（“扫描”）。范围（“A11”），地址：=“”）
如果是sAddress“”，则。地址=sAddress
如果sTextToDisplay“”则.TextToDisplay=sTextToDisplay
如果为“sSubAddress”，则.SubAddress=sSubAddress
如果sScreenTip“”则.ScreenTip=sScreenTip
以
以

嗨！如何将其添加到代码中？现在我的Sheets（“Scan”）.Range（“A11”）显示为true…只需将其替换为“Sheets（“Scan”）.Range（“A11”）=Sheets（“Add”）.Cells（x，2）”行