tsubuyukiのプロフィール
- ベストアンサー数
- 699
- ベストアンサー率
- 45%
- お礼率
- 0%
- 登録日2009/03/13
- 500行の中から、多い順に抽出する方法
A列に一連番号、B列に型式、C列に製造番号、D列に販売月日が入力されています。 B列には複数のデータがランダムに入力されておりますが、それを多い順に一覧表にできるマクロがあれば…と考えています。 なにかいいアイデアはないでしょうか?
- ベストアンサー
- Excel(エクセル)
- kuma_1228
- 回答数4
- エクセル 今日の出荷数が知りたい。
自動で日付が表示された下のマスに その日の出荷数を表示させたいです。 C2 が =DATE(2014,2,1) B6 が =$C$2+1 E5 が =TODAY() よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- yukhfs
- 回答数4
- Excel 2003 VBA ワークシート 固定
質問させて頂きます。 現在、Worksheet1にカレンダーなどを作成しているのですが A列~D列までスクロール可能。以降の列はスクロール無効。と行いたいのですが可能でしょうか? 可能で有るならば是非教えて頂きたいです。(詳細らも記載して頂くと有難いです。)
- 締切済み
- その他(プログラミング・開発)
- noname#193651
- 回答数2
- VBAプロシージャの間違いを添削願います
A列からD列にかけてデータが入力されます。B列には4桁の数値が入力されており、 この4桁の数値を利用して、次のようにデータを管理したいと思います。 1.4桁の数値が同じものを抽出する。 2.抽出された数値は、最初に出現している数値の下の行に挿入する。 3.最初に出現している数値以外は削除する。 4.各行は空行が無い状態とする。 これをプロシージャにしたものが下記です。 Sub 重複行削除() Dim lastgyou As Integer Dim i As Integer Dim j As Integer Dim atai As Integer lastgyou = Range("B1").End(xlDown).Row For i = 1 To lastgyou - 1 atai = Cells(i, 2).Value For j = i + 1 To lastgyou If atai = Cells(j, 2).Value Then If j <> i + 1 Then Rows(j).Cut Rows(i + 1).Insert Shift:=xlDown End If i = i + 1 End If Next j Next i End Sub としましたが、重複行が削除されません。 ご教授をお願いいたします。
- 締切済み
- その他(プログラミング・開発)
- kakehasi
- 回答数1
- マクロで参照するファイルの拡張子
マクロを使って集計作業をしています。 マクロでは複数のファイルから"vlook up"を使ってデータを参照しています。 今回参照するExcelファイルの拡張子が「xls」から「xlsx」に変わったのですが、 マクロを走らせるとエラーになりデバッグが立ち上がります。 マクロの編集で参照するファイルの拡張子を「xlsx」に変更したのですが、 やはりエラーとなり、集計がストップしてしまいます。 どうデバッグすれば良いのか分かりません。 そもそも「xlsx」の拡張子ではマクロが正常に動かないものなのでしょうか。