質問編集履歴

1

詰まっているところを追記しました

2020/02/02 22:52

投稿

Jonny_dayo
Jonny_dayo

スコア48

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
+ ```