回答編集履歴
2
コード修正
test
CHANGED
|
@@ -102,14 +102,14 @@
|
|
|
102
102
|
|
|
103
103
|
|
|
104
104
|
|
|
105
|
-
下記でどうでしょうか。
|
|
105
|
+
下記でどうでしょうか。（コード修正しました。）
|
|
106
106
|
|
|
107
107
|
|
|
108
108
|
|
|
109
109
|
```vba
|
|
110
110
|
|
|
111
|
-
Intersect(R
|
|
111
|
+
Intersect(MotoRng.CurrentRegion, Worksheets("Sheet1").Range("B:B,D:D,G:G,M:M")).copy _
|
|
112
112
|
|
|
113
|
-
|
|
113
|
+
.Range("A" & Sheet2MaxRow)
|
|
114
114
|
|
|
115
115
|
```
|
1
コード追記
test
CHANGED
|
@@ -91,3 +91,25 @@
|
|
|
91
91
|
|
|
92
92
|
|
|
93
93
|
上記を考慮して、抽出対象列は aaa(cl) で、条件値は Worksheets("Data").Cells(rw, cl + 1).Value で取得できる。
|
|
94
|
+
|
|
95
|
+
|
|
96
|
+
|
|
97
|
+
コメントに対する回答
|
|
98
|
+
|
|
99
|
+
---
|
|
100
|
+
|
|
101
|
+
> 具体的には商品（B列）、CODE（D列）、STORE(G列）、STOCK(M列）だけをSheet2に抽出する方法が知りたかったです。
|
|
102
|
+
|
|
103
|
+
|
|
104
|
+
|
|
105
|
+
下記でどうでしょうか。
|
|
106
|
+
|
|
107
|
+
|
|
108
|
+
|
|
109
|
+
```vba
|
|
110
|
+
|
|
111
|
+
Intersect(Range("A1").CurrentRegion, Range("B:B,D:D,G:G,M:M")).copy _
|
|
112
|
+
|
|
113
|
+
Sheets("Sheet4").Range("A1")
|
|
114
|
+
|
|
115
|
+
```
|