Excel VBA質問箱 IV

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

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


20912 / 76732 ←次へ | 前へ→

【61228】つんさん、neptuneさん、ありがとうございました!!
お礼  紅ほっぺ  - 09/4/17(金) 15:14 -

引用なし
パスワード
   1晩かかりましたが(爆)、
なんとか

For gyo2 = 1 To 14
    zentai = SH.Range(SH.Cells(gyo2, 1), SH.Cells(gyo2, 7)).Value
    retsu = 1
    For Each zentai In SH.Range(SH.Cells(gyo2, 1), SH.Cells(gyo2, 7))
      skb.Worksheets("抽出").Cells(gyo, retsu) = zentai
      retsu = retsu + 1
    Next
    gyo = gyo + 1
Next

で出来ました><。

ちなみに最初に投稿したコードは、仕組みは理解はしているつもりなのですが、ネットでひろってきたコードを切り貼りしたものなので、自分で書いたものとはいえないですm(_ _;)m
まだイチから書くことができません。。

お手数をおかけいたしましたが、アドバイスありがとうございました!!(^^)

1 hits

【61213】外部データ読み込みVB 紅ほっぺ 09/4/16(木) 14:16 質問
【61216】Re:外部データ読み込みVB つん 09/4/16(木) 15:09 回答
【61217】Re:外部データ読み込みVB 紅ほっぺ 09/4/16(木) 15:26 質問
【61218】Re:外部データ読み込みVB つん 09/4/16(木) 15:35 回答
【61220】Re:外部データ読み込みVB neptune 09/4/16(木) 15:43 発言
【61228】つんさん、neptuneさん、ありがとうござい... 紅ほっぺ 09/4/17(金) 15:14 お礼

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