Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


25159 / 76732 ←次へ | 前へ→

【56917】Re:縦結合セル値を別のシートの横結合セル値へ
発言  Jaka  - 08/7/10(木) 15:46 -

引用なし
パスワード
   ▼初心者さっち さん:
>  With rName
>  .Range("A1:A4").Copy
>    cName.Range("A1:H1").PasteSpecial xlValues, Transpose:=True
>  .Range("A5:A8").Copy
>    cName.Range("I1:P1").PasteSpecial xlValues, Transpose:=True
>   End With
これ、コピーして張り付ける意味があるのでしょうか?
cName.Range("A1").Value = .Range("A1").Value
これじゃダメなんですか?

結合セルとオフセット
普通の書き方だとこうなりますが...。
Resizeしたりしなきゃならないので、結合セルのコピペは面倒だと思いますよ。

Sub akjkak()
Range("A1:A4").Merge
Set Rg = Range("a1:a4")
Rg.Offset(, 2).Select
MsgBox Rg.Offset(, 2).Address
End Sub

Sub akakk()
Range("A1:A4").Merge
Set Rg = Range("a1")
Rg.Offset(, 2).Select
MsgBox Rg.Offset(, 2).Address
End Sub

1 hits

【56914】縦結合セル値を別のシートの横結合セル値へ 初心者さっち 08/7/10(木) 15:02 質問
【56917】Re:縦結合セル値を別のシートの横結合セル... Jaka 08/7/10(木) 15:46 発言

25159 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free