• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:マクロで・・・・)

マクロで表作成の設定で困っています

zonoyanの回答

  • zonoyan
  • ベストアンサー率25% (2/8)
回答No.2

No1の方とほぼ同じになってしまいましたが、参考までに。 行 = 1 '表の最初の行 列 = 1 '表の最初の列 最終行 = Worksheets("Sheet1").Cells(行, 列).End(xlDown).Row For 行 = 2 To 最終行 If Worksheets("Sheet1").Cells(行, 列 + 1) = "" Then Worksheets("Sheet1").Rows(行).Hidden = True '元にも戻すマクロを作成の際は"True"→"False"にする End If Next 行

関連するQ&A

  • 超初心者がマクロ集計をすることになりました

    マクロを使った集計システムを作成することになったのですが、マクロのマの字も知らない初心者です。 以下の表を集計するマクロを初心者向けで教えてください。 氏名        作業No   月No   時間内   時間外   社員No 山本太郎      3210      5     8      0      120 山本太郎      5120      8     8      12     120 山本太郎      3210      5     4      0      120 山田花子      1203      4     8      2      320 山田花子      3210      5     8      12     320 佐藤治郎      5201      10    8      8      91 佐藤治郎      3210      5     8      8      91 佐藤治郎      3210      5     8      12     91 という表があるとします。 これを、以下のようにしたい場合のマクロを教えてください。 氏名        社員No    作業No    時間内   時間外 山本太郎       120      3210-10    12       0 山本太郎       120      5120-8     8       12 山田花子      320      1203-4     8        2 山田花子       320      3210-5     8       12 佐藤治郎       91       5201-10    8        8 佐藤治郎       91       3210-10    16       20   ※作業Noと月Noのデータを“-”をつけて結合しています。 ※1人が同じ「作業No+月No」の作業を複数行っていたら、合計します。 すみませんが、よろしくお願いします。

  • 入力した合計数値を振り分けたい

    関数とかマクロなど理解していない初心者でエクセル2003を使用しいます。 例えば 1Aのセルに1~10個(単価50円)と入力済 2Aのセルに11~20個(単価40円)と入力済 3Aのセルに21~30個(単価30円)と入力済 1B~3Bのセルに個数欄未入力 1C~3Cのセルに金額自動計算式入力済 4Bのセルに合計個数欄未入力 4Cのセルに合計金額自動計算式入力済 とした場合、例えば4Bの合計個数に29個と入力すると、自動的に1Bに10個、2Bに10個、3Bに9個と個数が振り分けられる様にしたいのですが、できるのでしょうか?

  • マクロの集計について教えてください。

    マクロの集計について教えてください。 初心者のため、質問方法が間違っているところがあるかもしれませんが、お助けいただけると幸いです。 以下のような表で、佐藤さんの合計520、田中さん600、木村さん、25という値を出したいのですが、 作成したマクロ(下に添付)では佐藤さん20、田中さん600、木村さん20というように、その人の一番下の行のデータを集計してしまいます。 過去の質問集を検索して、なんとなくAdvancedFilterを使うのかな、という気はしますが、よくわかりません。 お助けいただけると本当にありがたいです。どうぞよろしくお願いします。 A列  B列    C列 佐藤  B     500 佐藤  B     20 田中 A 600 木村    D      5 木村 D 20 Selection.Sort Key1:=Range(KeyCell), Key2:=Range(KeyCell2), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlSyllabary

  • エクセル関数に関して

    請求書を作成しているのですが、個数、単価、合計とあり、 この個数と単価が入力された合計のセルのみに数字を表示させたいのですが、 「\0」と全て数字が入ってしまいます。 初歩的な質問で大変恐縮ですが、どうぞよろしくお願いいたします。

  • Excelで空白のセルを詰めたいのですが・・・

    空白のセルを詰めたいのですが・・・ 次のようにしたいのですが書籍やネット等で調べたのですが、よく解らないのでどなたかご教示お願いします。 OS WinXP ExcelXP使用です。 Seet1で簡単な関数を作り、データを集計したのですが、関係のない文字や数字が入っているので、 このデータをSeet2に整理して奇数行に名前、偶数行に数値を表示させ、下記の様に空白のセルを詰めたいのです。 これを   A   B   C   D   E   F 1 山田  田中  橋本  山田  山本 2 5   2   8   5   6 3     木村  北野  橋本      木村 4     4   6   6       3 この様に   A   B   C   D   E   F 1 山田  田中  橋本  山田  山本  木村 2 5   2   8   5   6   4 3 北野  橋本  木村 4 6   6   3 空白はランダムに入っています。 A1の山田はA1=Sheet1!D2 B2の5はA2=Seet!D3、E5の山田はSeet!1=F6、E2の5はSeet1!=F7、というように同じ名前や数値でも Seet1の別々のセルを参照しています。 私の質問の仕方に不備がありましたらご指摘いただき、お解りになる方ご教示お願いします。

  • EXCELマクロで空欄でマクロを止めることが出来ますか

    次のような設定です。   氏名 国語 社会 数学 理科 音楽 1 山田 50 45 50 34 25 2 石田 18 34 46 34 78 …  …  …  …  …  …  … 40 山本 23 45 36 39 94 41  このような表があったときに1番から順に一人ずつ個票を作ります。印刷をしていきます。41番目の氏名が空欄なので印刷を終了させるというマクロは出来ますか。 マクロ作成レベルもツール→マクロで作成するレベルで行いたいのですが、出来ますでしょうか。教えてください。 できますか。  

  • データの個数の数え方【エクセルについて】

    エクセル表のデータの個数の数え方について、どなたかご教授頂きたくお願い致します。 具体的に言うと、1つのシートに10万件(縦列セルNo.1からNo.10万)のエクセルデータがありその中で、 (1)山田姓は○○人、田中姓は○○人というように1人に至るまで姓の数をすべて数える方法を教えて下さい。もちろん数えた数の合計は10万になるはずです。但しセルには「山田太郎」、「山田次郎」等があり、同じ1つの山田姓として数えます。 (2)住所を区単位で数える方法を教えて下さい。但しセルには「東京都千代田区丸の内○○~」、「東京都中央区銀座○○~」のように入力されており、千代田区の個数や、中央区の個数を数える方法を教えて下さい。 名前はA行、住所はB行に入力されております。 データが膨大なので、オートフィルタで集めた後、1から数えることもできず困っております。

  • シートの合計

    よろしくお願いします。 エクセルでシート1~3迄あります。各シ-トのA列は名前、B列に数字が入っています。名前はA列のどの行にあるかわかりません。 同じ名前をシート4のA1に入力したらその名前の合計を出したい。  シート1    シート2   シート3       シート4   A   B    A   B   A    B     A    B 山田 10   木村  5  佐々木 18   木村  55  鈴木 20   田中 21  伊藤  33    ↑ 木村 50   山下 70  加藤  57  (入力する) 田中 15   高橋 90  佐藤  61 高橋 60   山田 10  鈴木  12             ・   ・   ・          

  • 計算式(EXCEL)単価と個数

    仕事上、単価と在庫個数をかけて金額を出す計算式を作成しております。個数が0の場合、0を入力しなくても空白のセルを0と認識させる方法はありますか? 今の表では、空白のセルを入力せずにそのまま飛ばすと単価×1となり金額が変わってきてしまいます。0を入力する手間を省きたいと思っております。お知恵をお願いします!

  • マクロで特定行を含まずコピーする方法を教えてください。

    マクロで特定行を含まずコピーする方法を教えてください。 社内で使っている1ヶ月分の売り上げを表にしていて、全てのセルに計算式が入っている為、とても重くなっています。ので、過去日付のところは、コピーして値で貼りつけたいと思っています。 名前  6/1  6/2  6/3  6/4  6/5・・・・ 田中(1)  数字・・・・ 田中(2)  数字・・・ 田中(3)  数字・・・ 田中(4)  数字・・・ 田中(5)  数字・・・ 田中(6)  数字・・・ 田中(7)  数字・・・ 合計   合計数 鈴木(1)  数字・・・ 鈴木(2)  数字・・・ 鈴木(3)  数字・・・ 鈴木(4)  数字・・・ 鈴木(5)  数字・・・ 鈴木(6)  数字・・・ 鈴木(7)  数字・・・ 鈴木合計  数字・・・   ・   ・   ・ (5000ほどの行があります) といったような表で、名前の(1)~(7)にも計算式が入っており、それをコピーして値で貼りつけをしたいのですが、合計欄は計算式を残したままコピーしたいのです。 どなたかお知恵をおねがいします。