- ベストアンサー
品名を変える表で在庫数を計算する方法
- CSVファイルには品名、数量などのデータが入っています。エクセルで開き、品名と日付の優先順位で昇順に並べ替えます。品名が変わるときに空白行を挿入します。
- A列の値が2の場合、D列の値を切り取り、E列に貼り付けます。これにより入荷数と出荷数を表現します。
- F列の全ての行に、D列とE列の結果から計算した残数を入れたいです。ただし、D列とE列が空白の行は計算しないようにします。
- みんなの回答 (43)
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (42)
- merlionXX
- ベストアンサー率48% (1930/4007)
- merlionXX
- ベストアンサー率48% (1930/4007)
- merlionXX
- ベストアンサー率48% (1930/4007)
- merlionXX
- ベストアンサー率48% (1930/4007)
- merlionXX
- ベストアンサー率48% (1930/4007)
- merlionXX
- ベストアンサー率48% (1930/4007)
- merlionXX
- ベストアンサー率48% (1930/4007)
- merlionXX
- ベストアンサー率48% (1930/4007)
- merlionXX
- ベストアンサー率48% (1930/4007)
- merlionXX
- ベストアンサー率48% (1930/4007)
関連するQ&A
- エクセル 2つの表を1つの表に空白行を詰めて表示
B列~D列に表AがありF列~H列に表Bがあります。 2つの表をJ列~L列に空白行を詰めて表示される方法を教えてください。 サンプル表を添付します。 よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- エクセルマクロ、空白行(セル)の挿入
データがA、B、C、D、E列100行まであります。 このうちD、E列を除き、エクセルのマクロで1行ごとに空白で10行挿入したいです。 (A、B、C、D列のデータに空白セルを10行分挿入し、下にシフトするイメージ。D、E列はそのまま。) ご教授頂きたく、お願いします。
- 締切済み
- その他(Windows)
- 複数CSVファイルからデータ抽出
CSVファイルのA列(行は問いません)の文字が転記シートのA列(行は問いません)と一致していたら、転記シートのA列が一致した行の空白に、左から順にCSVファイルのA列が一致した行のF列の値を書き込む。CSVファイルの1行A列を転記シートのF列の値を書き込んだ列の1行目に書き込む。 できれば、書き込んだ値はCSVファイルから消したいです。 コピペでやっていたのですが、ずれていてどうしようもなくなりました。 CSVファイル一つ当たり、4000行ほどあり、ファイルは200弱あります。 プログラムを組んでくださると、ありがたいのですが。 質問というよりお願いになってしまいますが、よろしくお願いします。
- 締切済み
- Excel(エクセル)
- エクセルマクロ:空白行を除いてコピー
マクロで次の作業を処理したいのですが、どのようなコードを書けばよいのでしょうか?教えてください。よろしくお願いします。 ○sheet1 ☆左側 列B~Hをワンセットとしたものが、計51行ある。先頭はタイトル行で9行目である。 D列には固定の文字列が与えられており、E列はブランクで、D・Eともに非表示にしておきたい。 B10~B59には、固定で1~50の数字が順番に与えられている。 C10~C59、G10~G59、H10~H59には数値が、F10~F59には文字列が入力される。 空白の場合もあり、どの行に入力されるかは不明。 ☆右側 列J~Pをワンセットとしたものが、計51行ある。先頭はタイトル行で9行目である。 J10~J59には、固定で51~100の数字が順番に与えられている。 K10~K59、M10~M59、O10~O59、P10~P59には数値が、L10~L59、N10~N59には文字列が入力される。 空白の場合もあり、どの行に入力されるかは不明。 ○sheet2 sheet1のボタンをクリックし、sheet2を表示させ、 sheet1の値を次のようにsheet2に貼付けたい。 sheet2のB8~H107の範囲内で上から、sheet1の左側B10~H59と右側J10~P59の空白を含む行を除いた セット(列B~H、列J~P)のみをコピーし、左側と右側を連続して、値のみ貼付けたい。 ※C列とK列の空白を判定すれば良い ※並べ替えなどのために別シートを置きたくない ※非表示列の扱い方
- ベストアンサー
- オフィス系ソフト
- Excelで空白行を削除したい
2500行位使用しているシートのなかに、どのセルも空白になっている不要な行が300行くらい混ざっています。 この行を自動的に削除するにはどうすれば良いでしょうか。 ただ、その行のA~Eセルは空白でもFセルに値が入っているなど完全に空白でない行は削除できません。 メニュー、関数、VBAなど有れば教えてください。
- ベストアンサー
- オフィス系ソフト
- Excelvba表に空白行があれば上に詰める重い
いつもお世話になっております。 列がD列からK列で、行が4行目から23行までの表があります。 その表で1行まるまる空白の時(4行目にには数式が入っていますがそれは除く) 上の行に詰めるようにしてあります。行はそのまま空白のまま残して、値のみ上に詰めるようにしています。 このような表が同じ列に4か所×3=12か所あるので、今はそれぞれ下のコードの行、列を変更して処理しています。 上の表と下のの表の間隔は、上が4~23行までで、下は30~49、と6行間隔です。結合セルも間にあるため5行空きがあります。 列と列の間隔は、左側から、D列~K列、続いて、N列~U列と続きます。2列空きがあります。 家で試した時は一応問題なく動いたのですが、 会社でした時フリーズしてしまい、うまくいきませんでした。 その後、家でしてもなぜかうまく動作しなくなりました。 12の表は多いのかと思い、1つで試してもだめになりました。 同じような作りの別のファイルは動いています。 念のため、新しいファイルにコピーし直してやりましたが、駄目でした。 コードもあまり良くないのかもしれません。 一応家ではVISTAの2007で試し、会社は7(32ビット)の2013です。 もう少し負担が少なくなるようなやり方があればと思っています。 もう少し、いいやり方があればお手数ですが、ご教授ください。 よろしくお願いいたします。 Sub 表の空白行は上に詰める() Dim i As Integer, x As Integer, y As Integer, CSUM As Integer Dim flag As Boolean Application.ScreenUpdating = False flag = 0 '1回だけの処理で使うフラグ For x = 22 To 4 Step -1 '23行→4行まで処理をします。 CSUM = 0 '列の文字数を数える変数CSUMを用意し、初期値0とします。 For y = 4 To 11 'D列→K列まで処理をします。 CSUM = CSUM + Len(Cells(x, y)) 'CSUMにセル(x,y)の文字数を足します。 Next '列処理繰り返し If CSUM = 0 Then Range(Cells(x + 1, 4), Cells(23, 11)).Copy '空白行の1行下から23行目までをコピー Cells(x, 4).PasteSpecial '空白行の1列目のセルを基点として貼り付け If flag = 0 Then '23行目の値クリア処理 1回だけの処理 Cells(23, 5) = 1 '23行目がすっからかんのときエラーになるので、暫定入力 Range(Cells(23, 4), Cells(23, 11)).SpecialCells(xlCellTypeConstants).ClearContents End If '1回だけの処理 ここまで flag = 1 '1回だけの処理させないためフラグ値変更 End If Application.CutCopyMode = False Next '行処理繰り返し End Sub
- ベストアンサー
- Excel(エクセル)
- 空白セルのある場合の計算
A B C D E F G H 1 (2) (2) 空 (3) わかりづらいかもしれませんが、 =A1+C1+E1+G1 で、数字の合計を出したいのですが、###のエラーが出ます。 E1の空白セルに数字が入るとエラーはなくなります。 どうしたら空白を0とみなして計算できますか? (空白セルはどうしても空白じゃなきゃなりません) (B列D列F列は計算対象外の数字が入力されてます)
- ベストアンサー
- オフィス系ソフト
- エクセルの質問です。列単位で空白のセルを詰めて表示したいのですが・・・
教えてください(>_<) 下記のようなデータがあります。 空白のセルを詰めて表示したいのです。 行全体を削除していくのではなく、列単位で上に詰めての表示です。 昇順などの並び替えはせず、単純に上に詰めていく感じです。 エクセルを扱えない人も利用していくのでできれば、コマンドボタン等で一度に表示できればうれしいです。 ■データ(C3からデータが入力されています) AB C D E F・・・ 1 2 3 あ あ 4 い う う え 5 お 6 う あ え え 7 え い お あ ■結果 AB C D E F・・・ 1 2 3 あ う あ え 4 い あ う お 5 う い え え 6 え お あ 7 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル 在庫数を求める計算式
エクセル2013を使用しています。 型番毎にシート管理していた在庫表を、 以下の内容で1シートにまためた形に変更したいと考えています。 型番毎の在庫数を求める計算式をお教え下さい。 A列:在庫管理する型番(34種類) B列:日付 C列:入荷 D列:出荷 E列:在庫 <例> 以下の場合3行目のE列(在庫:7)が1行目の同型番の、 E列(在庫:10)から算出される計算式。 A列 B列 C列 D列 E列 1行目 ABC型 11/20 0 5 10 2行目 DEF型 11/23 5 0 20 3行目 ABC型 11/24 0 3 7 ※A列に入る型番は注文次第なのでどの型番がいつくるかは未定となっています。 何卒よろしくお願い致します。
- 締切済み
- Excel(エクセル)
- エクセルの空白の行を印刷しない方法
A1からE101までの表があります。 E列には数式が入っていて、100行まで数値が入っています。 101行は縦計が入ってます。 この表は50行しか入力しない時や100行全部入力する場合もあり、少ない行しか入力のなかった時にも空白の行(E列には必ず数値が入ってます)が印刷されて困っています。 AからDが空白の時にその行から下が印刷されずに、縦計の101行が持ち上がって印刷される方法はないでしょうか?
- 締切済み
- Excel(エクセル)
- 職場で好きな人と揉めた場合、積み重ねた関係や感情を無かったことにすることは難しいです。しかし、相手の気持ちや意図を尊重し、冷静な対応を心掛けることが重要です。
- 問題が起きた場合は素直に話し合い、相手の意見を聞くことが大切です。お互いに譲歩する姿勢を持ち、解決策を共に見つけるように努めましょう。
- 職場での人間関係を損なわずに問題を解決するためには、冷静な判断力とコミュニケーション能力が必要です。感情的にならず、相手を尊重する姿勢を忘れずに取り組んでください。
お礼
>Columns("G:G").Copy >.Range("G1").PasteSpecial Paste:=xlPasteValues 'G列を値に変換 >の部分まで、G2に直したんじゃないのかな? はい。そのとうりです。 記述にコメント入れておきました。 どうもありがとうございます。