セルの属性を変えずに

質問

セル間で値を渡すには、どうしたらよいでしょうか。

　A列　　B列　　　C列
1　　　　○1　　　○2
2　●1
3　●2

A列2行に、http://×××.html(ハイパーリンクの有り)
A列3行に、http://×××.html(ハイパーリンクの有り)

B列1行、B列2行に移したいのです。

Cells(2, 1) = Cells(1, 2)
Cells(3, 1) = Cells(1, 3)

このように記述すると、ハイパーリンクが外れてしまうのです。

ハイパーリンク有りのまま、値を移すにはどうすればよいでしょうか？

アドバイスをお願いいたします。

回答No.5

uissst

要素を抽出して加えてあげればいいのですが

例：シート１のセルA1のハイパーリンクをシート１のA2に設定する
Worksheets(1).Hyperlinks.Add Cells(2, 1), Worksheets(1).Range("a1").Hyperlinks.Item(1).Address

当然文字列は設定されませんのであらかじめ設定しておくことが必要です。
それとおそらくハイパーリンクが設定されていないセルを参照するとエラーを起こすと思いますのでエラー処理してあげるか、事前にハイパーリンクがあるか判定してあげる必要があります。

あと蛇足ですがNo2さんの回答の
B1に=HYPERLINK(A2)
C1に=HYPERLINK(A3)
は参照設定ですのでマクロでは使用できないと思います。

お礼

感激です☆
ありがとうごいます。早速ためします。

回答No.4

NCU

Excel2002, Win XPで試したところ、セルの値は変わりますが、ハイパーリンクは生きています。

補足

EXCEL2003なのですが、記述の仕方が異なるのでしょうか。ハイパーリンクが死んでいます。

回答No.3

sakemoni1008

見当違いかも知れませんが、コピーするだけなら
コピー→相手セルで右クリック→形式を選択して貼り付け→
罫線を除くすべてを選択してＯＫでどうでしょうか？

補足

どうもありがとうございます。
複数行あるため、マクロに実行させたいと考えています。

回答No.2

shabushabu

B1に=HYPERLINK(A2)
C1に=HYPERLINK(A3)

と入力すればハイパーリンクごとコピーできますよ。

補足

cells(○、○)をHYPERLINKrange("A" & 変数)にすればよいということでしょうか。

マクロを実行するとHYPERLINKのところでとまり、SUB、Functionが定義されていませんと表示されます。なぜでしょうか。

回答No.1

uissst

動作は遅くなりますがコピーじゃだめでしょうか

例セルa1をa2に
Cells(1, 1).Copy Destination:=Cells(2, 1)

補足

どうもありがとうございます。
やはり、コピーしか方法はないのでしょうか。