- ベストアンサー
エクセル2003のVBAで重複行削除
KURUMITOの回答
- KURUMITO
- ベストアンサー率42% (1835/4283)
VBAを使うほどのことでもないでしょう。次のように関数を使って別のシートに表示させることができます。 お示しの表がシート1のA列からC列に有って1行目は項目名でデータは2行目から下方にあるとします。D列を作業列としてD2セルには次の式を入力して下方にオートフィルドラッグします。 =IF(COUNTBLANK(A2:C2)=3,"",IF(AND(A2=A3,B2=B3),INT(MAX(D$1:D1))+1+0.5,IF(AND(A2=A1,B2=B1),"",INT(MAX(D$1:D1))+1))) そこで別のシートの1行目は項目行として、A2セルには次の式を入力して右横方向にオートフィルドラッグしたのちに下方にもオートフィルドラッグします。 =IF(OR(ROW(A1)>MAX(Sheet1!$D:$D),COLUMN(A1)>3),"",IF(MOD(INDEX(Sheet1!$D:$D,MATCH(ROW(A1)+0.9,Sheet1!$D:$D,1)),1)=0.5,IF(COLUMN(A1)=3,"",INDEX(Sheet1!$A:$B,MATCH(ROW(A1)+0.9,Sheet1!$D:$D,1),COLUMN(A1))),INDEX(Sheet1!$A:$C,MATCH(ROW(A1),Sheet1!$D:$D,0),COLUMN(A1)))) お示しのようなデータの場合にはA2セルには0が表示されます。 0を表示したくない場合にはA、B,C列を選択してから右クリックし「セルの書式設定」の「表示形式」で「ユーザー定義」を選び種類の窓には ;; と入力すればよいでしょう。0は空白のセルに変わります。 関数は一度設定しておけばデータに変化が有ってもあるいは追加が有っても直ちに反応しますがマクロの場合にはその都度別の操作が必要となりますね。
関連するQ&A
- エクセル2003のVBAを教えて
エクセル2003のVBAを教えてください。 次の対象データで、(1)(2)(3)の作業が出来るエクセルVBAを教えて下さい。 (1)(2)(3)個々のVBAでお願いします。 ●対象データ：種類(A列)、文字(B列)、 データの行数：不特定なので、データのある最終行までとします。 ●教えていただきたい項目 (1)：種類だけを(C列)に取り出す。 (2)：種類の先頭に空白の行を3行入れて、追加の２行目の種類(A列)に文字(B列)を入れる。 (3)：種類が5行以上あるときは、5行ごとに空白行を追加する。 ●対象データ 種類(A列) 文字(B列) AA あああ BB いいい BB いい BB いいい CC うう CC うう DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ ●(1)のVBAの結果(このようになるVBAを教えてください。) (C列) AA BB CC DD ●(2)、(3)のVBAの結果(このようになるVBAを教えてください。) 種類(A列) 文字(B列) あああ AA あああ いいい BB いいい BB いいい BB いいい うう CC うう CC うう ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ
- ベストアンサー
- Visual Basic
- Excel 複雑なセル埋めのVBA
エクセルで入力済みのデータをテーブル形式にするためにVBAを組んでいますが突き当たりました、お知恵を拝借させてください。現在成形出来ているのは以下の状態です。 A列 B列 C列 1行 AA 2 1 2行 3行 BB 3 2 4行 5行 6行 7行 8行 9行 CC 2 3 10行 11行 12行 13行 14行 これを以下のようにB列を埋めたいと考えています。A列を埋めるVBAは当方で分かります。 A列 B列 C列 1行 AA 1 1 2行 AA 2 3行 BB 1 2 4行 BB 2 5行 BB 3 6行 BB 1 7行 BB 2 8行 BB 3 9行 CC 1 3 10行 CC 2 11行 CC 1 12行 CC 2 13行 CC 1 14行 CC 2 B1に2が入っていてC1に1が入っているときはB1から下へ1，2の連番を1回入れます、B3に3と入っていてC3に2と入っているときはB3から下へ1,2,3の連番を2回繰り返します、同じようにB9以降も処理しています。連番のスタートは必ず1で、現在B列に入っている数字が連番の最後に当たる数値でC列が繰り返し回数という事です。上の例ではB列を書き直していますが、新たにD列にB列に入れたい連番の列を作る方法でもいいと思っています。 もし表が崩れていたら済みませんでした。恐れ入りますがポインタでも結構ですのでご教授下さい、よろしくお願いします。
- 締切済み
- その他(業務ソフトウェア)
- エクセルＶＢＡでセル結合
いつもお世話になっています。 エクセル2003でＶＢＡを使って下記をしたいのでその、ＶＢＡ構文を教えて下さい。 特定の列のあるセルに文字が入っています。 （文字が入っている列は固定ですが、行番号はデータによって変わります。例えば、Ａデータの場合は「Ｊ３０」、Ｂデータの場合は、「Ｊ５５」だったりします。） この文字が入っているセルをＶＢＡで検索し、検索したセルを右隣のセルと結合します。（先ほどのＡデータの場合、Ｊ３０：Ｚ３０に結合します。） 更に、文字が入っているセルが２以上の複数の場合があります。（先ほどのＡデータの場合、「Ｊ３０」と「Ｊ４０」と「Ｊ４５」という感じです。文字が入っているセルの数はデータにより異なります。） 結合が終わり、このシートのデータがあるところだけに罫線を引きます。（このシートのデータというのは、前述の文字とそれ以外は、「数字」と「・」です。 ややこしいですが、よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Excel マクロ VBA セル内で改行された文字列の分割
はじめまして。 ＥｘｃｅｌのＶＢＡ初心者で、ちょっと困っています。 （例） （１） セルＡ１に以下のような改行された文字列が入力されています。 【セルＡ１】 a aa aaa b bb bbb （２） セルＡ１内の文字列を３行毎に分割し、セルＡ２以降に表示させたい。 【セルＡ２】 a aa aaa 【セルＡ３】 b bb bbb ※ 今回の例ではセルＡ１に６行しかありませんが、実際に行数は決まっていません。 そこで以下のようなＶＢＡを見よう見まねで作り、１行毎の分割はうまくいったのですが、『３行毎に分割』ができません。 Sub 分割() Dim A, B, C A = Split(Range("A1"), Chr(10)) B = 0 For Each C In A B = B + 1 Range("A2").Offset(B - 1, 0).Value = C Next End Sub ご教授いただけると助かります。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA 文字数指定で置換
Excel VBA で、 (1) Sheet1のA1:A9の各文字列の3文字目から2文字を Sheet2のB1の文字列(bb)に変換する。 (2) Sheet1のA1:A9の各文字列の5文字目から2文字を Sheet2のC1の文字列(cc)に変換する。 とするには、どのようにしたら良いでしょうか？
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAで連番を振る。
A列が空白で、B列に1行目から***行目（毎回変わる）までデータが入力されている時、 A列に、1から***まで（Ｂ列のデータが終わるまで、連番を振るにはどんなVBAを かいたらいいのでしょうか？ お願いします。
- 締切済み
- オフィス系ソフト
- Ｅｘｃｅｌ ＶＢＡで値が重複する行を削除する
Ｅｘｃｅｌ２０００を使っています。 シートＡに数千件のデータがあります。 シートＢのＥ列にある文字とシートＡのＤ列の文字が重複する場合に、シートＡの重複するセルがある行を削除する（且つできれば行のデータを抜き出すＶＢＡを作ろうと考えています。 最近ＶＢＡの初心者本をやっと理解したところで、ちんぷんかんぷんとまではいかないけど、知恵熱がでました。 仕事なので自分でなんとかすべきかと思いますが、きっかけの調べ方がまずわからない。 どなたか、解かるきっかけだけでも与えて頂けないでしょうか。とくに、別シートの値と重複する値を探す場合に何をいれるかわかればきっと道は開けると思うんですが…。 初めての質問なので、質問内容が至らなかったらもうしわけありません。
- 締切済み
- オフィス系ソフト
- エクセルVBAでセル選択
エクセル2000でリストを作成し、ＶＢＡで編集しようとしています。 Ａ列に入力されているコードの先頭に「’」をつけて文字列とするための関数をＢ２のセルからＡ列のデータが入力されている最後のセルの隣までコピーしたいと思っています。 Ａ列の最終セルを取得するＶＢＡは分かったのですが、その値をＢ列の選択範囲として使用する方法がわかりません。 エクセルＶＢＡは全くの初心者です。 どなたか教えてください！
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました。検討させていただきます。