Excel2003 VBAマクロの作成
- Excel2003でVBAマクロを作成する方法について解説します。セル範囲の値を削除したり、行をソートする方法などを紹介します。
- Excel2003のVBAマクロを使って、セル範囲の値を削除したり、行をソートする方法について解説します。詳しい手順や注意点を説明します。
- Excel2003のVBAマクロを使って、セル範囲の値を削除する方法や、行のソート方法についてご説明します。初心者でも簡単に使える手順を解説します。
- ベストアンサー
excel2003 VBAマクロの作成
すいません、下記についてコピーして動作する状態でいただけますでしょうか？ 本当はもっと複雑なのですが、下記の部分だけなかなかうまくいかず、お力を貸してください。 管理台帳.xlsには↓のように記載があります。 A列 B列 C列 D列 ------------------------------------------ 管理番号 値段 商品名 数 1行目 K0001 500 X 5 2行目 K0002 200 S 1 K0002 300 T 1 K0003 100 Z 15 K0003 500 X 15 K0003 700 M 15 K0003 600 N 15 ・ ・ n行目 ------------------------------------------ ■条件/動作要件 ・管理番号は商品名別に1行とする為、同じ管理番号は複数行に記載がある ・管理番号1つに対して、商品名は複数ある マクロの処理内容としては、以下の2つが欲しい (1)重複計上を避ける為、行の情報がまったく同じものはセル範囲A？:D？の"値"を削除する ※セルや行ごと削除すると、Excel関数を使用しているセルに不具合がでる (2)2～n行目の範囲をソートする 優先度1：管理番号 優先度2：商品名 ※(2)は作成済みなので回答不要です
- vbamacro2003
- お礼率33% (1/3)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんばんは！ 質問の解釈が違っていたらごめんなさい。 ＞(1)重複計上を避ける為、行の情報がまったく同じものはセル範囲A？:D？の"値"を削除する ＞※セルや行ごと削除すると、Excel関数を使用しているセルに不具合がでる に関してはA～D列データが全く同じものについてはA～D列の行を空白にすれば良いのですかね？ 一応そういうコトだとしての一例です。 Sub test() Dim i As Long Columns(1).Insert Application.ScreenUpdating = False For i = 2 To n '←「n」は実際の行数の数値に！ Cells(i, 1) = Cells(i, 2) & "_" & Cells(i, 3) & "_" & Cells(i, 4) & "_" & Cells(i, 5) Next i For i = n To 2 Step -1 '←こちらの「n」も実際の数値を！ If WorksheetFunction.CountIf(Range(Cells(2, 1), Cells(i, 1)), Cells(i, 1)) > 1 Then Range(Cells(i, 2), Cells(i, 5)).ClearContents End If Next i Application.ScreenUpdating = True Columns(1).Delete End Sub こんな感じではどうでしょうか？ 的外れならごめんなさいね。m（_ _）m
関連するQ&A
- excel2003 VBAマクロの作成
すいません、下記のような条件を満たすマクロのサンプルコードをお願いします。 ■前提条件 ・「検索元データ」はマクロ.xlsの中にある ・「検索先ファイル」は管理ファイル.xlsである ・マクロ.xlsファイルのA列にはデータがn個ある（セル範囲A2：A(n+1)まで） ・C:\one\two\three\管理ファイル.xls のフォルダ位置である（絶対パスで指定する） ・管理ファイルの中にはSheet1,Sheet2,Sheet3・・・・Sheet10の10コのシートがある ■マクロでしたいこと (1)A列のデータが管理ファイル（ブック内）に記載されているかチェックする (2)A列のデータをチェックしたら、下記の通りに列にチェック情報を記載する B列 データがいくつあったか（管理ファイルに記載されていない場合は0と表示） C列 データが記載されているシート名(B列が0の場合は0と表示） (3)次のデータへ (4) (1)-(3)をA列のデータがなくなるまで繰り返す (5)データがなくなったら終了（保存せず閉じない） 以上です。 よろしくお願いします。
- 締切済み
- 会計ソフト
- Excel_VBAでこんなこと出来ますか？
エクセルの標準の機能として、データ－並び替えで、選択範囲の昇順、降順の並び替えが出来ます。 しかし、優先されるキーとしては、セル内のデータ全てを対照とされてしましますが、セル内の文字列から任意の位置の文字を除いた(無視)した並び替えをする方法を考えています。何か？いい方法が無いでしょうか？ヒントだけでも教えてく頂きたいのですが宜しくお願い致します。 例： H03W001 H03E003 H03S002 H03N004 を昇順でソートすると H03E003 H03N004 H03S002 H03W001 の順で並び替えらてれてしまいます。 で、4文字目を無視して H03W001 H03S002 H03E003 H03N004 のように並び替えたいのですが・・・？ このキーに付属するデータもありますので、基本的には、セルの選択範囲(複数列)もしくは、行単位の並び替えを望んでいます。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセル2003 VBAで セル内を 一発呼び出し
エクセル2003 オートフィルタではなく VBAで セル内を 一発呼び出ししたいので。 よろしく お願いします。 表 列A~E（結合２行） ：商品名と内容 列H~K（結合２行） 住所氏名電話番号を記載してます。 １年分を オートフィルターで 氏名 や 商品名で 探すのは 結構 時間がかかります。 同じものが ほぼ少ないため。。。 そこで たまに 同じ氏名 同じような 品を 検索する セルを ２個ほど作って そこへ セル１へ 商品名を入力すると 該当する 行のみ 表示される。 セル２に 名前をを入力すると 該当する 行のみ 表示される。 また、セルを赤色に塗った部分の結合行（２～３行）を 赤色に塗りつぶした行のみ 表示も できれば うれしいです。 コマンドボタン等を使ってもいいので お願いします。 そんな VBAを 作っていただけませんでしょうか＾＾； お手数おかけしますが どなたか よろしく お願いします。
- 締切済み
- オフィス系ソフト
- エクセル vba セル合計
添付表について下記の様な処理をしたいのですが途中からVBAの書き方が（セル合計）がわからず困っております。 ＊日別の原価計（K列のセル値）の小計（K列の最終入力行の下※ｋ１１２）に計算する。 自分ではこの様を処理を考えております。 (1)商品名（G列）最終入力行の1行下を選ぶ（G１１２） (2) (1)の同行にある（k112)を合計算出セルとして選ぶ (3)商品名（G列）最終入力行（g112)からその列上の空欄行の１セル下（ｇ６６）を見て（要はg 112からEnd(xlUp))、その行と同じ範囲のK列（ｋ１１２ーｋ６６）を合計をする範囲として選ぶ (4) (2)の合計する範囲を(3)で算出する。 VBA素人の私では(1)～(3)までを下記の通り書きました。 Sub 原価合計求める() Dim lastrowshu As Long Dim lastrowgen As Long Dim fastrowgen As Long lastrowshu = Cells(Rows.Count, 7).End(xlUp).Row + 1 '帳票シートの商品名（G列）最終入力行+1を取得する。 lastrowgen = Cells(Rows.Count, 7).End(xlUp).Row '商品名行の最終入力 fastrowgen = Cells(lastrowgen, 7).End(xlUp).Row '商品名最終入力行から一番上 Cells(lastrowshu, 11).Select ここまでを実行すると添付ファイルでいうｋ１１２セルをselectするまではうまくいきましたが、 これ以降の(4)の合計の書き方がわかりません。 どなたか御教授願います。 あるいはもっといい方法があれば同時にご指導頂けますと幸いです。
- ベストアンサー
- 財務・会計・経理
- Excel VBA
Excel VBAについて シート１にはデータが入ってます。 G列に日付、L列に商品名、N列に件数。 シート２には集計結果を入力したいです。 セルB2に、日付が10月1日から15日までで、商品名がAの件数の合計。 セルB3は、日付が10月16日から末日まで、セルB4は、日付が11月1日から15日までと半月毎に集計を半年後の末日まで繰返し、B2の数行下には、商品名Bの集計行を作り、その数行下には商品名Cの集計行を作りたいです。 これまでは関数SUMIFSで集計していましたが、複数店舗分のシートの更新・メンテナンスが大変なので、VBAでの集計を考えいろいろ調べてるのですが、方法が思い付かないので、ご教授ください。
- 締切済み
- Visual Basic
- エクセル マクロ ＶＢＡ
エクセルのマクロについて質問です。 『集計』というブックの『集計開始』というシートに Ａ列 Ｂ列 Ｃ列 １行目 見出し 見出し 見出し （商品名） （支店） （個数） ２行目 コメント 空白 空白 ３行目 空白 空白 空白 ４行目 商品名 支店 個数 ５行目 空白 空白 空白 ６行目 空白 空白 コメント１ ７行目 空白 空白 空白 ８行目 空白 空白 コメント２ ９行目以降 上記のデータ（見出しを除く）の繰り返し というデータが入っています。 Ｂ列の中に『ＡＡＡ』という文字が含まれていたら、そのセルを空白に置換し、 含まれていなかったら、そこで処理がとまったりエラーが出たりしないで次のステッップへ進み、 Ｃ列の中に『Ｂ』という文字が含まれていたら、そのセルを空白に置換し、 含まれていなかったら、そこで処理がとまったりエラーが出たりしないで次のステッップへ進み、 （今は、手作業で編集→置換→検索する文字列の中に『Ｂ*』と入力し、 置換後の文字列を空白にしてすべて置換ということをやっています。） ＡＢＣ列（データーの入っている行まで）の空白を含む行を一括削除し、 以下のような形にしたいのです。 Ａ列 Ｂ列 Ｃ列 １行目 見出し 見出し 見出し （商品名） （支店） （個数） ２行目 商品名 支店 個数 ３行目 商品名 支店 個数 ・ ・ このようにするマクロ文はどのようになりますでしょうか？
- 締切済み
- その他（プログラミング・開発）
- マクロの記録で作成したマクロがデータが代わると誤動作する。
マクロの記録で作成したマクロがデータが代わると誤動作する。 エクセルファイルにてＡ列からＪ列までデータがあります。 行数は２，０００行です。データは全て半角です。 Ａ列の値が １＝入庫 ２＝出庫 ３＝戻入 と全て置換 Ｂ列の値が １＝社内品 ２＝社外品 ３＝受入 と全て置換。 でこのＢ列が３で受入に置換えたら その隣のＡ列の値を 受入に置き換えたい。 さらに Ａ列の値が置換え後の入庫と戻入場合はその行のＪ列の値を切り取り、Ｋ列に貼付をし Ａ列の値が置換え後の出庫の場合はその行のＪ列の値を切り取り、Ｌ列に貼付をしたいです。 マクロの記録で行いましたが、 いったんデータを全て消して別データを貼り付けしたらＡ列Ｂ列の置換えは正常ですが Ｂ列が３の場合にＡ列を再置換えと、Ｊ列の値を切り取り、Ｋ列、Ｌ列への貼付が 誤動作します。 （別データは雛形は同じです。入力規則も同じですがデータは変わります。 例：セルＡ１のデータは１、 新しいデータはセルＡ１は２ 等） マクロの記録中では、並べ替えでソートし上記条件でセルを選択しコピペをしました。 並べ替えは2回です。 マクロ文を見ると、セル名がずらずら並んで、セル番号が指定されてます。 （マクロ記録中に選択したセル番号が全部記録されてます。） 文を見ると、上記条件で置換えやコピペでなく このセルはこう置換え、このセルはこうコピペのように読めます。 これでは、データが代わったら、別の動きになるのかな？と思いました。 こういう場合はマクロではどうやって記録すればいいでしょうか？
- ベストアンサー
- オフィス系ソフト
- 行挿入マクロをご教示ください
A列の５行目から１０００行ほどK列までデータが入っています。 A列からK列をB列優先でソートを行うと、B列にところどころ同じ番号が２行あったり、３行あったり、また４行とバラバラで、出てきます。 この場合、同じ番号が２行以上あるセルの上に空白の行１行を挿入し、同じ番号行分を合計して整理したいと考えています。 ２行以上ある行の上に空白行を１行挿入するようなマクロをご教示ください。 どなたか、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 【Excel】マクロを使って、自動集計ができるようにしたいと思っています。
こんにちは。 宜しくお願い致します。 アクセスがあったデータをピポッドテーブルでまとめ、さらに集計結果を出したいと思っています。 ピポッドテーブルを作成するまではマクロの自動記録でどうにかなったのですが、その後の集計結果のところでとまどっています。 ＜データの現状＞ ※ピポッドテーブルで出したデータは、1・2行目が空白、3～5行目に項目名が入っており、6行目からデータが入っています。何行までデータが入っているかはその月によって異なり、行の一番最後はA列に「総計」と入力されています。 ※A～C列は項目名（日付や商品名など）が入っています。 D列以降は合計などが入っており、ここで基準として使いたい項目はすべて4行目に入っています。 列の数は項目によって増減します。 項目の一番最後は「総計」です。 マクロで集計したいのは次の作業です。 (1)「Sheet1」を全コピー→「Sheet2」に形式を選択して貼り付け→値貼り付け (2)貼り付けたシートで、D列以降、4行目の項目が「集計１」「集計２」「詳細集計」「総計」以外のものも列を表示しないにする ※D列から始まって、「集計１」の前の列までを表示しないにするのと、「集計１」の次の列から「集計２」の前の列までを表示しないにしたい。 例えば、H列に「集計１」・L列に「集計２」が入力されている場合は「D～G列」「I～K列」を表示しないにしたい。 (3)詳細集計の列を1列選択し、列を1行挿入。挿入した列4行目のセルに「合計」と入力。 (4)挿入した列のところに、6行目以降、A列に「総計」と入っている行まで数字のデータが入っているところ（A列で「総計」と表示されている行まで）は、「集計１」と「集計２」のセルの合計をそれぞれ表示し、枠線を入れる。 (5)一番先頭に1列挿入し、6行目から元A列の「総計」と表示されている前までの通し番号を入れる。 (6)「総計」の次の列の４行目に、「ゼロ数」と入力し、5行目に(3)で挿入した列、A列に「総計」と入っている1行前までの範囲で「０」表示があるセル数を表示。 (7)ゼロ数と入力したの次の列の4行目に「ゼロ率」と入力し、先に出した「ゼロ数」を(5)で入力した通し番号の一番最後の数で割った数を表示。 (8)入力終えた後はA1のセルを選択。 以上になります。 長いですが、どなたか教えてください。 宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- マクロを教えてください
Ａ列の １行目に商品名１ ２行目に商品名１の販売価格 ３行名に商品名２ ４行目に商品名２の販売価格 といった具合に、 商品名と価格が同じ列に交互に繰り返されているデータがあります。１００００行ぐらいあります。 それを Ａ列 商品名 Ｂ列 販売価格 というふうに分けたいので、そのマクロを教えてください。 販売価格のセルのＢ列への移動、空白行の削除、繰り返し処理 これらの命令文なのだと思うのですが。。。 宜しくお願いいたします。
- ベストアンサー
- Visual Basic
お礼
バッチリです！！ 早急に回答いただき本当にありがとうございました！