No.2
- 回答日時:
通常は1行目は見出し行になりますが、今回は1行目からデータが始まっているということで良いのですね。
No.3
- 回答日時:
それで翌日はどのような作業を行なうのでしょうか?
C・D列をA・B列に上書きしたのちにC・D列の値をクリアして『本日分』としてデータを入力ですか?(コピペなのかはわかりませんが、その辺が明確だと楽ですかね)
書き出すタイミングは入力であればリアルタイム?
コピペであればその後に実行?
返答遅くなり申し訳ございません。
本社から毎日データがExcelで送られてくるものを、自分で作業用Excelを作成して新規データのみを抜き出す作業をしています。今は手作業です。
そのため、おっしゅる通りにC・D列をA・B列に上書きしたのちにC・D列の値をクリアして『本日分』としてデータを入力します。
その後、抜き出したデータを印刷して作業員に渡します。
書き出すタイミングは毎朝コピペして実行しています。
説明が少なくて申し訳ございません。
No.4ベストアンサー
- 回答日時:
こんばんは
>新規出現したデータのみをE列F列に抜き出したいです。
表組みを参考にするとこんな感じですかね
トリガーやデータ更新は考えてください。
Sub Sample()
Dim old_dataAry()
Dim tmpAry, Result
Dim lastRow As Long, i As Long, n As Long
n = 1
For i = 1 To 4
If lastRow <= Cells(Rows.Count, i).End(xlUp).Row Then
lastRow = Cells(Rows.Count, i).End(xlUp).Row
End If
Next
tmpAry = Range("A1:D" & lastRow)
ReDim old_dataAry(UBound(tmpAry, 1))
For i = 1 To UBound(tmpAry, 1)
old_dataAry(i) = tmpAry(i, 1) & tmpAry(i, 2)
Next
For i = 1 To UBound(old_dataAry)
Result = Filter(old_dataAry, tmpAry(i, 3) & tmpAry(i, 4))
If Not UBound(Result) <> -1 Then
Cells(n, "E").Value = tmpAry(i, 3)
Cells(n, "F").Value = tmpAry(i, 4)
n = n + 1
End If
Next
End Sub
500行程度なら処理時間の問題はさほどないと思いますが、
Cells(n, "E").Value = tmpAry(i, 3)
Cells(n, "F").Value = tmpAry(i, 4)
を工夫して一度に書き出せば、短縮できると思います。
返答遅くなり申し訳ございません。
この通りにマクロ作成しましたら、データが作成されました!
本当に助かりました。ありがとうございます!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Power Query でのデータの一括修正について 2 2022/05/10 02:00
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Visual Basic(VBA) Excel 関数 またはマクロ、VBA 5 2022/08/16 11:15
- Excel(エクセル) エクセル関数のスペシャリストの方、教えてください。 写真のように A列にはデータ C列にはデータの中 7 2022/04/09 00:15
- 会計ソフト・業務用ソフト 同じデータの入ったセルの統合の方法 1 2022/10/04 12:29
- Excel(エクセル) Excel教えてください。 下記のことが出来るのは、マクロですか?条件付き書式でしょうか、、?知恵を 5 2022/11/12 09:33
- Excel(エクセル) アウトラインの小計のやり方 1 2023/03/20 11:51
- Visual Basic(VBA) VBAで重複データを確認したい 5 2022/10/07 16:24
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
pandasでsqlite3にテーブル作成...
-
csvデータ不要列の削除をbatフ...
-
EXCELで外部データの取り込みが...
-
Excel VBAのユーザーフォームで...
-
JDBCを使ってdate型へのINSERT...
-
Accessでパラメーター以外の削...
-
ACCESS VBAでSeekメソッドの処...
-
ListBoxにAddItemする際、重複...
-
フラグをたてるってどういうこ...
-
【SQL】他テーブルに含まれる値...
-
sqlに記述できない文字
-
SELECT INTOで一度に複数の変数...
-
Accessで今日から5日後
-
timestampのデータはどのように...
-
UPDATEで既存のレコードに文字...
-
オラクルのUPDATEで複数テーブル
-
エラーを起こす方法
-
テーブル名が可変の場合のクエ...
-
truncate tableを使って複数の...
-
データ無し時は空白行にしたい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
pandasでsqlite3にテーブル作成...
-
csvデータ不要列の削除をbatフ...
-
Excel VBAのユーザーフォームで...
-
VBAでの行数を揃える方法
-
追加クエリで重複データなしで...
-
【VB】セルが空になるまで処理...
-
マクロでファイルを読み込み、...
-
EXCELで外部データの取り込みが...
-
ListBoxにAddItemする際、重複...
-
JDBCを使ってdate型へのINSERT...
-
ACCESS VBAでSeekメソッドの処...
-
自作アプリからAPIで他のアプリ...
-
MySQLでauto_incrementをつかわ...
-
エクセルで去年のデータを今年...
-
エクセル 2つの列にある値の完...
-
PHPとMYSQL、DBのデータが空の...
-
データテーブルの使い方に関して
-
リストボックスとDataGridコン...
-
vacummdbについて
-
【ExcelVBA】範囲選択の方法に...
おすすめ情報