質問編集履歴
1
詰まっているところを追記しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,8 +1,8 @@
|
|
|
1
1
|
### やりたいこと
|
|
2
2
|
|
|
3
|
-
|
|
3
|
+
①元データのA列を2行目から順番に最後までチェックし、重複しているものは無視、していないものは別シートのA1→B1→C1と1行目に入れる
|
|
4
4
|
|
|
5
|
-
コピー
|
|
5
|
+
②データ貼り付け先の1行目とコピー元のA列を参照し、一致するものはそのB列のデータをコピー先の一致した列に上から順番に貼り付ける
|
|
6
6
|
|
|
7
7
|
※日付ごとの列にしたい
|
|
8
8
|
|
|
@@ -103,3 +103,29 @@
|
|
|
103
103
|
|
|
104
104
|
|
|
105
105
|
```
|
|
106
|
+
|
|
107
|
+
|
|
108
|
+
|
|
109
|
+
### 困っていること
|
|
110
|
+
|
|
111
|
+
下のコードでA2以降の重複しない日付を取れるかなと思うのですが、
|
|
112
|
+
|
|
113
|
+
A列じゃなくてB列から取りたい時はどこをいじればいいのか分からないです(´・ω・｀)
|
|
114
|
+
|
|
115
|
+
また、取ったデータを別シートに貼り付けたい時はどのようにしたら良いのでしょうか…
|
|
116
|
+
|
|
117
|
+
|
|
118
|
+
|
|
119
|
+
```ここに言語を入力
|
|
120
|
+
|
|
121
|
+
Dim A As New Collection, i As Long
|
|
122
|
+
|
|
123
|
+
On Error Resume Next
|
|
124
|
+
|
|
125
|
+
For r = 2 To Cells(Rows.count, 1).End(xlUp).Row
|
|
126
|
+
|
|
127
|
+
A.Add Cells(i, 1), Cells(i, 1)
|
|
128
|
+
|
|
129
|
+
Next i
|
|
130
|
+
|
|
131
|
+
```
|