Excel VBA質問箱 IV

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

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


25208 / 76732 ←次へ | 前へ→

【56868】Re:別シートへ行と列を入れ替えてコピー
質問  初心者さっち  - 08/7/9(水) 11:27 -

引用なし
パスワード
   ハチ様 皆様

>Transposeを調べて見てください。
調べたのですが、どのように使うか理解できませんでした。
ううう。

違う方法で、転記する事はできました!!!
Sub Cpy1()
  Dim S1 As Worksheet, S2 As Worksheet
  Dim COL As Integer
  Dim GYO2 As Integer, COL2 As Integer
  
  Set S1 = Worksheets(1): Set S2 = Worksheets(2)
'転記先初期値
  GYO2 = 18
  COL2 = 5

'列ループ
  For COL = 5 To 12
'単一セルの転記
  S2.Cells(COL2, 3).Value = S1.Cells(11, GYO2).Value
'次の行列の判定
  COL2 = COL2 + 1
  If COL2 < 13 Then
    GYO2 = GYO2 + 1
  End If
 Next COL
End Sub

でも上記だと、応用がききません。
実は、これを元に連続で転記していきたいのです。

上の例では、sheets(2).cells(5,3)〜cells(12,3)
      sheets(1).cells(18,11)〜cells(25,11)
の転記しかできません。

転記したいsheets(1)のデータはまだまだ下へ11行〜1207行まで4行飛ばしであります。
【sheets(1)データ】
11行のデータのセル場所 【R11:Y11】,【AA11:AH11】,【AJ11:AQ11】
15行のデータのセル場所 【R15:Y15】,【AA15:AH15】,【AJ15:AQ15】
19行のデータのセル場所 【R19:Y19】,【AA19:AH19】,【AJ19:AQ19】
23行のデータのセル場所 【R23:Y23】,【AA23:AH23】,【AJ23:AQ23】
というような具合に4行飛ばしで、1207行まで続きます。

【sheets(2)転記位置】←曲者
sheets(1)の11行目のデータを左から順に【C5:C12】,【E5:E12】,【H5:H12】
sheets(1)の15行目のデータを左から順に【K5:K12】,【M5:M12】,【P5:P12】
sheets(1)の19行目のデータを左から順に【C21:C28】,【E21:E28】,【H21:H28】
sheets(1)の23行目のデータを左から順に【K21:K28】,【M21:M28】,【P21:P28】
という具合に転記していきたいのです。
イメージが沸きにくいかもしれませんが、左→右→左下→右下→左下→右下と続いて行きます。
列は、C,E,H,K,M,P
行は16行飛ばしで下へ、と法則があります。

煮詰まっています。
どうかお力添えの程宜しくお願いします。

0 hits

【56864】別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/9(水) 9:11 質問
【56866】Re:別シートへ行と列を入れ替えてコピー ハチ 08/7/9(水) 9:22 回答
【56868】Re:別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/9(水) 11:27 質問
【56869】Re:別シートへ行と列を入れ替えてコピー kanabun 08/7/9(水) 12:02 発言
【56885】Re:別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/9(水) 16:51 お礼
【56873】Re:別シートへ行と列を入れ替えてコピー ハチ 08/7/9(水) 13:19 発言
【56874】Re:別シートへ行と列を入れ替えてコピー ハチ 08/7/9(水) 13:33 発言
【56883】Re:別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/9(水) 16:48 質問
【56886】Re:別シートへ行と列を入れ替えてコピー kanabun 08/7/9(水) 17:18 発言
【56887】Re:別シートへ行と列を入れ替えてコピー ハチ 08/7/9(水) 17:39 発言
【56888】Re:別シートへ行と列を入れ替えてコピー ハチ 08/7/9(水) 17:54 発言
【56897】Re:別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/10(木) 9:07 お礼
【56899】Re:別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/10(木) 10:27 お礼
【56902】Re:別シートへ行と列を入れ替えてコピー ハチ 08/7/10(木) 11:10 発言
【56900】Re:別シートへ行と列を入れ替えてコピー kanabun 08/7/10(木) 10:39 発言
【56901】Re:別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/10(木) 10:56 お礼
【56904】Re:別シートへ行と列を入れ替えてコピー kanabun 08/7/10(木) 11:22 発言
【56918】Re:別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/10(木) 16:10 質問
【56919】Re:別シートへ行と列を入れ替えてコピー kanabun 08/7/10(木) 17:04 発言
【56905】Re:別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/10(木) 12:00 質問
【56906】Re:別シートへ行と列を入れ替えてコピー Abebobo 08/7/10(木) 12:36 発言
【56907】Re:別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/10(木) 13:03 回答
【56908】Re:別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/10(木) 13:15 回答
【56909】Re:別シートへ行と列を入れ替えてコピー kanabun 08/7/10(木) 13:47 発言
【56913】Re:別シートへ行と列を入れ替えてコピー 初心者さっち 08/7/10(木) 14:45 お礼

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