Excel VBA質問箱 IV

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

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


25162 / 76732 ←次へ | 前へ→

【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したいのです。


ご協力ください。
0 hits

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

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