Excel VBA質問箱 IV

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

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


20143 / 76732 ←次へ | 前へ→

【62012】Re:行の挿入について
発言  かみちゃん  - 09/6/16(火) 23:30 -

引用なし
パスワード
   こんにちは。かみちゃん です。

まだご覧になっておられますでしょうか?
kanabunさんのアドバイスが続いていますので、私の出番はもうなさそうですが、

>> If strTrimedTekiyo = "合計" Then
>>の行番号は、
>>変数lngRowなのではないでしょうか?
>私もそういう受け取り方をしています。
>
>しかしながら、
>> Rows(lngRow + 1).Insert Shift:=xlDown
>を挿入しましたが、行挿入はできませんでした。
>何も変わらずでした。
>手を加えたりしたのですが、行挿入どころか「合計」が
>消えてしまったり、行挿入はできなかったりという状況です。
>
>> For lngRow = lngMaxRow To 31 Step -1
>>として、下方向から繰り返し処理したほうがいいと思います。
>下方向からの繰り返しという処理はわかったのですが、この処理を
>するとCSVファイルから逆(最下部)から拾ってくるのではない
>でしょうか?
>現に実行してみたら、CSVファイルの最下部がマクロが入っている
>シートの最上部に現れ、逆方向に挿入されていました。

CSVファイルの内容がよくわからないので、具体的なアドバイスが難しいのですが、
[61961]で提示したコードは、以下のようなシートレイアウトで実行すると、
きちんと「合計」の次の行に挿入されます。
新規ブックで一度ご確認いただいたほうがいいかもしれません。

  A  B
1 あ
2 い
3 う
4 合計
5 え
6 お
7 か
8 き
9 合計
10 く
11

Sub Sample2()
 Dim lngRow As Long
 Dim lngRowMax As Long

 lngRowMax = Range("A" & Rows.Count).End(xlUp).Row
 For lngRow = lngRowMax To 1 Step -1
  If Cells(lngRow, 1).Value = "合計" Then
   Rows(lngRow + 1).Insert Shift:=xlDown
  End If
 Next
End Sub

0 hits

【61954】行の挿入について mori 09/6/14(日) 18:59 質問
【61955】Re:行の挿入について かみちゃん 09/6/14(日) 19:14 発言
【61956】Re:行の挿入について mori 09/6/14(日) 19:34 発言
【61957】Re:行の挿入について かみちゃん 09/6/14(日) 19:46 発言
【61958】Re:行の挿入について mori 09/6/14(日) 20:02 発言
【61959】Re:行の挿入について かみちゃん 09/6/14(日) 20:13 発言
【61960】Re:行の挿入について mori 09/6/14(日) 20:37 発言
【61961】Re:行の挿入について かみちゃん 09/6/14(日) 21:00 発言
【61962】Re:行の挿入について mori 09/6/15(月) 9:48 発言
【61964】Re:行の挿入について かみちゃん 09/6/15(月) 12:42 発言
【61967】Re:行の挿入について mori 09/6/15(月) 14:44 発言
【61970】Re:行の挿入について kanabun 09/6/15(月) 15:09 発言
【61974】Re:行の挿入について mori 09/6/15(月) 15:32 お礼
【61996】Re:行の挿入について mori 09/6/16(火) 14:30 質問
【61998】Re:行の挿入について kanabun 09/6/16(火) 15:17 発言
【62001】Re:行の挿入について mori 09/6/16(火) 15:44 発言
【62005】Re:行の挿入について kanabun 09/6/16(火) 16:13 発言
【62008】Re:行の挿入について mori 09/6/16(火) 17:03 発言
【62009】Re:行の挿入について kanabun 09/6/16(火) 17:42 発言
【62013】Re:行の挿入について kanabun 09/6/17(水) 0:38 発言
【62016】Re:行の挿入について mori 09/6/17(水) 10:00 発言
【62017】Re:行の挿入について kanabun 09/6/17(水) 11:12 発言
【62019】Re:行の挿入について kanabun 09/6/17(水) 11:30 発言
【62021】Re:行の挿入について mori 09/6/17(水) 13:02 発言
【61971】Re:行の挿入について Yuki 09/6/15(月) 15:13 発言
【61976】Re:行の挿入について mori 09/6/15(月) 15:36 発言
【62015】Re:行の挿入について Yuki 09/6/17(水) 8:29 発言
【62026】Re:行の挿入について mori 09/6/17(水) 13:48 お礼
【61973】Re:行の挿入について かみちゃん 09/6/15(月) 15:32 発言
【61977】Re:行の挿入について mori 09/6/15(月) 15:52 お礼
【62012】Re:行の挿入について かみちゃん 09/6/16(火) 23:30 発言
【62025】Re:行の挿入について mori 09/6/17(水) 13:43 お礼

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