Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4400 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【56914】縦結合セル値を別のシートの横結合セル値へ 初心者さっち 08/7/10(木) 15:02 質問[未読]
【56917】Re:縦結合セル値を別のシートの横結合セル... Jaka 08/7/10(木) 15:46 発言[未読]
【56914】縦結合セル値を別のシートの横結合セル値...
質問  初心者さっち  - 08/7/10(木) 15:02 -
引用なし
パスワード
   似たような質問なのですが、何度やっても実行エラーになります。

sub test()

Dim rName As Range, cName As Range

Set rName = Worksheets(1).[A11]'実際はA11:A14(結合セル) [A11:A14]？
　Set cName = Worksheets(2).[B2]'実際はB2:Q2(結合セル)　[B2:Q2]？
Do
　　CopyName rName, cName
　
　　　　Set rName = rName.Offset(8)
　　　　Set cName = cName.Offset(16)
　Loop Until rName.Row > 1207
End Sub
Private Sub CopyName(ByVal rName As Range, ByVal cName As Range)
　　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
End Sub

ちなみに今回、コピペしたい値は数字ではなく、AA8B-805-117のような
英数字及び、ハイフンも含みます。何か関係するでしょうか。

sheets(1)のA1:A4の結合セルにAA8B-805-117が入ってます。
これを、sheets(2)のA1:H1の結合セルにPasteSpecialしたいのです。


ご協力ください。
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4400 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free