Как сохранить гиперссылку такой, какая она есть, при копировании из одной книги в другую с помощью vba?

Question

Я новичок в VBA, у меня есть рабочая книга, в которой ячейка имеет значение с гиперссылкой, и я пытаюсь скопировать это значение ячейки вместе с гиперссылкой в ​​другую книгу, например, как в формате исходного кода Excel. функциональность .

Вот код:

Worksheets("Sheet1").Cells(1, 2) = objWorkbook.Worksheets(1).Cells(1, 2)

Этот код просто перемещает значение, но мне нужно значение с его гиперссылкой.

Answer 1

Поскольку оператор, который вы используете, может передавать значение только из одной ячейки в другую.

На самом деле Cells(1, 2) - это то же самое, что и Cells(1, 2).Value по определению, так что ваше утверждение на самом деле совпадает с:

Worksheets("Sheet1").Cells(1, 2).Value = objWorkbook.Worksheets(1).Cells(1, 2).Value

И теперь понятно, почему оно только копирует значение.

Если вы хотите скопировать всю ячейку, вам нужно использовать метод Range.Copy .