[[20220608220143]]　『空白の行のセルは削除したい』（すもも）　ページの最後に飛ぶ

『空白の行のセルは削除したい』（すもも）

またまた宜しくお願い致します

請求書を作っているのですが、A32～データシートから購入商品を表示させ、
金額を計算し、2行目以降には空白になった場合（購入品が1つの場合など）は空白の個所は非表示に出来ましでしょうか？

毎日の作業なので今は手動で非表示または削除しています。
購入品が多い場合は（10件だったら10行増え空白のセルは非表示にしたいです。

購入品はAのセルに表示されます。
天候夕の場合はA32に商品名が月シートから＝で貼り付けています。
現在は手作業です。

毎日手作業で作成している為時間がかかっています。
ＶＬＯＯＫＵＰで作成した方がいいのでしょうか？

マクロを使えば非表示にして、項目が入っている行だけ表示させたいです。
請求書のシートと重さのシートがあります。
重さのシートには重量を入れております。
こちらも空白の場合は非表示にすることは出来ますか？
長長々と問すいません

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

似たようなもの
[[20220529231229]]　『セルの選択』（はるみ）
（検索と選択） 2022/06/08(水) 22:33

行。

0でなく9。
（検索と選択） 2022/06/08(水) 22:45

 行き違いが無いようにレイアウトを書いてもらいたいですね。

       A列    B列
  1行
  2
  3
 のような形式で。
 行を半角スペースで始めると、レイアウトが崩れにくいです。

 色々と書きましたが、消しました。(6/9 9:50 追記)
 下記のコードを参考にして当てはめて下さい。

 'A列のr1行目からr2行目のセルで判断して空白となっている箇所の行を非表示にします。
 Range(Cells(r1, "A"), Cells(r2, "A")).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
 '元通り再表示します。
 Range(Cells(r1, "A"), Cells(r2, "A")).EntireRow.Hidden = False

（γ） 2022/06/08(水) 23:19

お返事遅くなってすみません。

1行は空白残してその下の空白は非表示もしくは、削除なのですがR列以降に商品のデータが入っていて、削除で上方向にシフトする。

A　B　　|CDEFGHIJKLMNOPQ　|R 　 |S
1 |商品 |単価
2 |いちご　 |50
3
4

～

31|内訳
32|りんご
33|いちご
34|バナナ
35|
36|
37|
この場合35行目は残したままで36行目から空白は削除したいのです。

（すもも） 2022/06/09(木) 21:16

 >36行目から空白は削除したいのです。 
 空白の削除の意味わかんねー。
（分からん） 2022/06/09(木) 21:38

結局はマクロが欲しいだけですよね。
下の方法も試すとかしてないみたいだし。

似たようなもの
[[20220529231229]]　『セルの選択』（はるみ）
（セルの選択） 2022/06/09(木) 23:07

ああ、A32から下は該当しない場合は、""が返るような計算式が入っているんですね？
（.SpecialCells(xlCellTypeBlanks)ではうまくいきません）
改めて質問。
(Q1)どの行まで計算式が入っていますか？
(Q2)その下に、請求書の本文のようなものは入っていないですか？
そのあたりをしっかり提示してください。
こちらからはあなたのPCは見えないので、説明が必要です。

（γ） 2022/06/09(木) 23:20

こんばんは

遅くなってすみません。
式は全部に入っています。
データと言うシートから張り付けてあります。
0なら空白と言うIFの式が入っています。
下には合計と個数・会社名などが入っております。
購入が少ないと空白が多く体裁の為に削除しているのですが、1日に100件以上あるので、簡単に出来ないのかなと思いました。

32より上は住所と送り先が入っています。
（すもも） 2022/06/10(金) 21:22

 ＞下には合計と個数・会社名などが入っております。
 その合計行は何行目なんですか？
 仮に100行目だとして、その直前までを非表示にするのであれば、こんなことです。

 Sub test()
    Dim k As Long
    Dim r As Long

    For k = 32 To 100
        If Cells(k, "A") = "" Then
            r = k
            Exit For
        End If
    Next
    Range(Cells(r, "A"), Cells(99, "A")).EntireRow.Hidden = False
 End Sub

（γ） 2022/06/11(土) 00:12

転記ミスでした。
Hidden = True
にしてください。

（γ） 2022/06/11(土) 00:27

有難う御座います。

試してみますね。
（すもも） 2022/06/11(土) 21:41

オートフィルタではだめなのでしょうか。

（マナ） 2022/06/11(土) 21:59

マナさん

おはようございます。
重さのデータが入っているためフィルタは使えないんです。

すみません。
（すもも） 2022/06/15(水) 08:12

横からですが。
＞重さのデータが入っているためフィルタは使えないんです。
やはり、行列を踏まえて、サンプルデータを示されてはどうですか？
体裁がずれていて、今一つわかりませんが、B列に重さのデータも入っているのですか？

（もこな２） 2022/06/15(水) 08:35

この様な金額シートです。
かなり割愛しています。
sheet2もあり、そちらは重量用のシートになります。
データはデータというシートから引っ張ています。

  |A　    |B　　| C | ～| Q　  |  R 　  |S
1 |商品   |単価
2 |いちご |50
3
4

～

31|内訳 |
32|りんご |
33|いちご |
34|バナナ |
35|
36|
37|
38|
39|total | ケース｜個数｜金額 |単価|小計|合計
40| | 3 | 10 30 300
（すもも） 2022/06/15(水) 08:59

既にγさんからアドバイスがあるように、行頭に半角スペースやタブを入れておくと、小さめの文字で途中改行されなくなるので、レイアウトが崩れにくくなります。

     ___A___   ___B___　　___C___  ... ___Q___   ___R___   ___S___
  1   商品      単価
  2  いちご      50
  3
  4
 ～
 31   内訳     ケース      個数         金額      小計      合計
 32  りんご
 33  いちご
 34  バナナ
 35
 36
 37
 38
 39   total    ケース      個数         金額       合計
 40               3         10           30        300

     ___A___   ___B___　　___C___  ... ___Q___   ___R___   ___S___

例えば↑のようなものを↓のようにしたいなら

     ___A___   ___B___　　___C___  ... ___Q___   ___R___   ___S___
  1   商品      単価
  2  いちご      50
  3
  4
 ～
 31   内訳     ケース      個数         金額      小計      合計
 32  りんご
 33  いちご
 34  バナナ
 39   total    ケース      個数         金額       合計
 40               3         10           30        300
     ___A___   ___B___　　___C___  ... ___Q___   ___R___   ___S___

A31～S38までをオートフィルタの範囲にして、A列が空白以外のデータを抽出すればよいですよね？
繰り返しになりますが、【重量】がどの列にあってオートフィルタが使えないという判断になったのですか？

（もこな２） 2022/06/15(水) 10:30

    ___A___   ___B___　　___C___  __D__ ... ___Q___   ___R___   ___S___
  1  会社名     
  2  住所　      
  3　TEL　 　　　
  4　発送方法　　
 ～
 31   内訳     ケース      個数    単価       合計
 32  りんご      1          10      30　　　　300
 33  いちご      1           5      50        250
 34  バナナ      1           3      80        240
 35  空白
～ 
 38_____________________________________________________________________
 39   total    ケース      個数    単価       　　トータル合計
 40               1         18                 3　　　　300
 41
 42　当社名　　
　_________________________________________________________________
 43
    ___A___   ___B___　　___C___  ... ___Q___   ___R___   ___S___

ケースとは、1つの箱に入れる数です。
量によって違うので手入力しています
すいません重量はまた同じようなシートで重量だけを出しています。
金額が重さになっている書式です。

（すもも） 2022/06/20(月) 07:59

コメント返信：

[ 一覧(最新更新順) ]

[[20220608220143]] 『空白の行のセルは削除したい』（すもも） ページの最後に飛ぶ

[[20220608220143]]　『空白の行のセルは削除したい』（すもも）　ページの最後に飛ぶ