Excel VBA質問箱 IV

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

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


51424 / 76738 ←次へ | 前へ→

【30183】Re:初歩の初歩なのですが、
質問  rakkyo  - 05/10/21(金) 11:04 -

引用なし
パスワード
   いらないのを消して、
MsgBox AA
で確認したら
ちゃんとファイルを読んでいたので、

その後の、ソースが違っていたようです・・・。

ほかのところからシートの空白をとるっていうソースをそのまま
ひっぱってきた↓のですが・・。

RowA = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ColA = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column


ReDim vntB(1 To RowA, 1 To ColA)
For i = 1 To RowA
  vntA = Cells(i, "A").Resize(, ColA).Value
   m = 1
    For K = 1 To ColA
     If vntA(1, K) <> "" Then
      vntB(i, m) = vntA(1, K)
      m = m + 1
     End If
    Next
Next

Range("A1").Resize(RowA, ColA).Value = vntB

0 hits

【30173】初歩の初歩なのですが、 rakkyo 05/10/21(金) 10:22 質問
【30176】Re:初歩の初歩なのですが、 Statis 05/10/21(金) 10:40 発言
【30178】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 10:42 質問
【30181】Re:初歩の初歩なのですが、 Statis 05/10/21(金) 10:59 回答
【30182】Re:初歩の初歩なのですが、 Jaka 05/10/21(金) 11:00 回答
【30183】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 11:04 質問
【30188】Re:初歩の初歩なのですが、 Jaka 05/10/21(金) 12:04 回答
【30189】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 12:51 質問
【30194】Re:初歩の初歩なのですが、 Jaka 05/10/21(金) 13:59 発言
【30195】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 14:23 質問
【30196】Re:初歩の初歩なのですが、 Jaka 05/10/21(金) 14:38 回答
【30198】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 14:47 質問
【30199】Re:初歩の初歩なのですが、 Jaka 05/10/21(金) 14:54 発言
【30200】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 14:56 質問
【30203】Re:初歩の初歩なのですが、 Jaka 05/10/21(金) 15:27 発言
【30206】Re:初歩の初歩なのですが、 rakkyo 05/10/21(金) 17:06 お礼

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