質問編集履歴
1
詰まっているところを追記しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
### やりたいこと
|
|
2
|
-
|
|
2
|
+
①元データのA列を2行目から順番に最後までチェックし、重複しているものは無視、していないものは別シートのA1→B1→C1と1行目に入れる
|
|
3
|
-
コピー
|
|
3
|
+
②データ貼り付け先の1行目とコピー元のA列を参照し、一致するものはそのB列のデータをコピー先の一致した列に上から順番に貼り付ける
|
|
4
4
|
※日付ごとの列にしたい
|
|
5
5
|
|
|
6
6
|
|
|
@@ -50,4 +50,17 @@
|
|
|
50
50
|
|
|
51
51
|
Next 'ループおわり
|
|
52
52
|
|
|
53
|
+
```
|
|
54
|
+
|
|
55
|
+
### 困っていること
|
|
56
|
+
下のコードでA2以降の重複しない日付を取れるかなと思うのですが、
|
|
57
|
+
A列じゃなくてB列から取りたい時はどこをいじればいいのか分からないです(´・ω・｀)
|
|
58
|
+
また、取ったデータを別シートに貼り付けたい時はどのようにしたら良いのでしょうか…
|
|
59
|
+
|
|
60
|
+
```ここに言語を入力
|
|
61
|
+
Dim A As New Collection, i As Long
|
|
62
|
+
On Error Resume Next
|
|
63
|
+
For r = 2 To Cells(Rows.count, 1).End(xlUp).Row
|
|
64
|
+
A.Add Cells(i, 1), Cells(i, 1)
|
|
65
|
+
Next i
|
|
53
66
|
```
|