teratail
回答率
85.30%
質問するログイン新規登録
トップに関する質問VBA 行数だけ繰り返す

編集履歴

質問編集履歴

11

誤記

2020/05/28 10:01

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -13,37 +13,35 @@
13
13
 
14
14
  ```
15
15
  Private Sub CommandButton3_Click()
16
- Sheets("Data").Select
17
- Range("A2").Select
18
- ActiveCell.FormulaR1C1 = "みかん"
16
+ ActiveCell.FormulaR1C1 = "みかん"
19
17
  Sheets("Sheet1").Select
20
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=1, Criteria1:="みかん"
18
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=1, Criteria1:="みかん"
21
19
  Sheets("Data").Select
22
20
  Range("B2").Select
23
21
  ActiveCell.FormulaR1C1 = "S"
24
22
  Sheets("Sheet1").Select
25
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=2, Criteria1:="S"
23
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=2, Criteria1:="S"
26
24
  Sheets("Data").Select
27
25
  Range("C2").Select
28
26
  ActiveCell.FormulaR1C1 = "A"
29
27
  Sheets("Sheet1").Select
30
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=3, Criteria1:="A"
28
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=3, Criteria1:="A"
31
29
  Sheets("Data").Select
32
30
  Range("D2").Select
33
31
  ActiveCell.FormulaR1C1 = "120"
34
32
  Sheets("Sheet1").Select
35
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=4
33
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=4
36
34
  Sheets("Data").Select
37
35
  Range("E2").Select
38
36
  ActiveCell.FormulaR1C1 = "10"
39
37
  Sheets("Sheet1").Select
40
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=5, Criteria1:="10"
38
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=5, Criteria1:="10"
41
39
  Sheets("Data").Select
42
40
  Range("F2").Select
43
41
  ActiveCell.FormulaR1C1 = "1200"
44
42
  Sheets("Sheet1").Select
45
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=6
43
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=6
46
- Range("A2:AB14").Select
44
+ Range("A2:AB185").Select
47
45
  Selection.Copy
48
46
  Sheets("Sheet2").Select
49
47
  Range("A2").Select
@@ -52,43 +50,51 @@
52
50
  Range("A3").Select
53
51
  Application.CutCopyMode = False
54
52
  ActiveCell.FormulaR1C1 = "りんご"
55
- Range("A14:B23").Select
56
- Range("B14").Activate
57
53
  Sheets("Sheet1").Select
54
+ ActiveWindow.ScrollColumn = 11
55
+ ActiveWindow.ScrollColumn = 10
56
+ ActiveWindow.ScrollColumn = 9
57
+ ActiveWindow.ScrollColumn = 8
58
+ ActiveWindow.ScrollColumn = 7
59
+ ActiveWindow.ScrollColumn = 6
60
+ ActiveWindow.ScrollColumn = 5
61
+ ActiveWindow.ScrollColumn = 4
62
+ ActiveWindow.ScrollColumn = 3
63
+ ActiveWindow.ScrollColumn = 2
64
+ ActiveWindow.ScrollColumn = 1
58
65
  Rows("1:1").Select
59
- Range("L1").Activate
60
66
  Selection.AutoFilter
61
67
  Selection.AutoFilter
62
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=1, Criteria1:="りんご"
68
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=1, Criteria1:="りんご"
63
69
  Sheets("Data").Select
64
70
  Range("B3").Select
65
71
  ActiveCell.FormulaR1C1 = "M"
66
72
  Sheets("Sheet1").Select
67
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=2, Criteria1:="M"
73
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=2, Criteria1:="M"
68
74
  Sheets("Data").Select
69
75
  Range("C3").Select
70
76
  ActiveCell.FormulaR1C1 = "B"
71
77
  Sheets("Sheet1").Select
72
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=3, Criteria1:="B"
78
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=3, Criteria1:="B"
73
79
  Sheets("Data").Select
74
80
  Range("D3").Select
75
81
  ActiveCell.FormulaR1C1 = "130"
76
82
  Sheets("Sheet1").Select
77
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=4, Criteria1:="130"
83
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=4, Criteria1:="130"
78
84
  Sheets("Data").Select
79
85
  Range("E3").Select
80
86
  ActiveCell.FormulaR1C1 = "20"
81
87
  Sheets("Sheet1").Select
82
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=5, Criteria1:="20"
88
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=5, Criteria1:="20"
83
89
  Sheets("Data").Select
84
90
  Range("F3").Select
85
91
  ActiveCell.FormulaR1C1 = "2600"
86
92
  Sheets("Sheet1").Select
87
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=6
93
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=6
88
94
  Range("A3:AB6").Select
89
95
  Selection.Copy
90
96
  Sheets("Sheet2").Select
91
- Range("A5").Select
97
+ Range("A15").Select
92
98
  ActiveSheet.Paste
93
99
  Sheets("Data").Select
94
100
  Range("A4").Select
@@ -99,36 +105,37 @@
99
105
  Range("L1").Activate
100
106
  Selection.AutoFilter
101
107
  Selection.AutoFilter
102
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=1, Criteria1:="バナナ"
108
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=1, Criteria1:="バナナ"
103
109
  Sheets("Data").Select
104
110
  Range("B4").Select
105
- ActiveCell.FormulaR1C1 = "L"
111
+ Selection.Copy
106
112
  Sheets("Sheet1").Select
107
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=2, Criteria1:="L"
113
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=2, Criteria1:="L"
108
114
  Sheets("Data").Select
109
115
  Range("C4").Select
116
+ Application.CutCopyMode = False
110
117
  ActiveCell.FormulaR1C1 = "C"
111
118
  Sheets("Sheet1").Select
112
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=3, Criteria1:="C"
119
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=3, Criteria1:="C"
113
120
  Sheets("Data").Select
114
121
  Range("D4").Select
115
122
  ActiveCell.FormulaR1C1 = "140"
116
123
  Sheets("Sheet1").Select
117
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=4
124
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=4
118
125
  Sheets("Data").Select
119
126
  Range("E4").Select
120
127
  ActiveCell.FormulaR1C1 = "30"
121
128
  Sheets("Sheet1").Select
122
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=5
129
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=5
123
130
  Sheets("Data").Select
124
131
  Range("F4").Select
125
132
  ActiveCell.FormulaR1C1 = "4200"
126
133
  Sheets("Sheet1").Select
127
- ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=6
134
+ ActiveSheet.Range("$A$1:$AB$195").AutoFilter Field:=6
128
- Range("A4:AB7").Select
135
+ Range("A4:AB195").Select
129
136
  Selection.Copy
130
137
  Sheets("Sheet2").Select
131
- Range("A7").Select
138
+ Range("A17").Select
132
139
  ActiveSheet.Paste
133
140
  End Sub
134
141
  ```

10

修正

2020/05/28 10:01

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -17,32 +17,32 @@
17
17
  Range("A2").Select
18
18
  ActiveCell.FormulaR1C1 = "みかん"
19
19
  Sheets("Sheet1").Select
20
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=1, Criteria1:="みかん"
20
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=1, Criteria1:="みかん"
21
21
  Sheets("Data").Select
22
22
  Range("B2").Select
23
23
  ActiveCell.FormulaR1C1 = "S"
24
24
  Sheets("Sheet1").Select
25
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=2, Criteria1:="S"
25
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=2, Criteria1:="S"
26
26
  Sheets("Data").Select
27
27
  Range("C2").Select
28
28
  ActiveCell.FormulaR1C1 = "A"
29
29
  Sheets("Sheet1").Select
30
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=3, Criteria1:="A"
30
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=3, Criteria1:="A"
31
31
  Sheets("Data").Select
32
32
  Range("D2").Select
33
33
  ActiveCell.FormulaR1C1 = "120"
34
34
  Sheets("Sheet1").Select
35
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=4
35
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=4
36
36
  Sheets("Data").Select
37
37
  Range("E2").Select
38
38
  ActiveCell.FormulaR1C1 = "10"
39
39
  Sheets("Sheet1").Select
40
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=5, Criteria1:="10"
40
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=5, Criteria1:="10"
41
41
  Sheets("Data").Select
42
42
  Range("F2").Select
43
43
  ActiveCell.FormulaR1C1 = "1200"
44
44
  Sheets("Sheet1").Select
45
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=6
45
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=6
46
46
  Range("A2:AB14").Select
47
47
  Selection.Copy
48
48
  Sheets("Sheet2").Select
@@ -59,32 +59,32 @@
59
59
  Range("L1").Activate
60
60
  Selection.AutoFilter
61
61
  Selection.AutoFilter
62
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=1, Criteria1:="りんご"
62
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=1, Criteria1:="りんご"
63
63
  Sheets("Data").Select
64
64
  Range("B3").Select
65
65
  ActiveCell.FormulaR1C1 = "M"
66
66
  Sheets("Sheet1").Select
67
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=2, Criteria1:="M"
67
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=2, Criteria1:="M"
68
68
  Sheets("Data").Select
69
69
  Range("C3").Select
70
70
  ActiveCell.FormulaR1C1 = "B"
71
71
  Sheets("Sheet1").Select
72
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=3, Criteria1:="B"
72
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=3, Criteria1:="B"
73
73
  Sheets("Data").Select
74
74
  Range("D3").Select
75
75
  ActiveCell.FormulaR1C1 = "130"
76
76
  Sheets("Sheet1").Select
77
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=4, Criteria1:="130"
77
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=4, Criteria1:="130"
78
78
  Sheets("Data").Select
79
79
  Range("E3").Select
80
80
  ActiveCell.FormulaR1C1 = "20"
81
81
  Sheets("Sheet1").Select
82
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=5, Criteria1:="20"
82
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=5, Criteria1:="20"
83
83
  Sheets("Data").Select
84
84
  Range("F3").Select
85
85
  ActiveCell.FormulaR1C1 = "2600"
86
86
  Sheets("Sheet1").Select
87
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=6
87
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=6
88
88
  Range("A3:AB6").Select
89
89
  Selection.Copy
90
90
  Sheets("Sheet2").Select
@@ -99,32 +99,32 @@
99
99
  Range("L1").Activate
100
100
  Selection.AutoFilter
101
101
  Selection.AutoFilter
102
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=1, Criteria1:="バナナ"
102
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=1, Criteria1:="バナナ"
103
103
  Sheets("Data").Select
104
104
  Range("B4").Select
105
105
  ActiveCell.FormulaR1C1 = "L"
106
106
  Sheets("Sheet1").Select
107
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=2, Criteria1:="L"
107
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=2, Criteria1:="L"
108
108
  Sheets("Data").Select
109
109
  Range("C4").Select
110
110
  ActiveCell.FormulaR1C1 = "C"
111
111
  Sheets("Sheet1").Select
112
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=3, Criteria1:="C"
112
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=3, Criteria1:="C"
113
113
  Sheets("Data").Select
114
114
  Range("D4").Select
115
115
  ActiveCell.FormulaR1C1 = "140"
116
116
  Sheets("Sheet1").Select
117
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=4
117
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=4
118
118
  Sheets("Data").Select
119
119
  Range("E4").Select
120
120
  ActiveCell.FormulaR1C1 = "30"
121
121
  Sheets("Sheet1").Select
122
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=5
122
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=5
123
123
  Sheets("Data").Select
124
124
  Range("F4").Select
125
125
  ActiveCell.FormulaR1C1 = "4200"
126
126
  Sheets("Sheet1").Select
127
- ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=6
127
+ ActiveSheet.Range("$A$1:$AB$169").AutoFilter Field:=6
128
128
  Range("A4:AB7").Select
129
129
  Selection.Copy
130
130
  Sheets("Sheet2").Select

9

誤記

2020/05/28 09:46

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -11,7 +11,7 @@
11
11
  ”Data"シート
12
12
  ![イメージ説明](bc7619b1827e5b4a2fe35f7a211fb1ec.png)
13
13
 
14
- ```ここに言語を入力
14
+ ```
15
15
  Private Sub CommandButton3_Click()
16
16
  Sheets("Data").Select
17
17
  Range("A2").Select

8

修正

2020/05/28 09:38

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -13,48 +13,122 @@
13
13
 
14
14
  ```ここに言語を入力
15
15
  Private Sub CommandButton3_Click()
16
- Dim kk As Integer
17
- Dim dd As Variant
18
- Dim Kw(7) As Variant
19
-
20
- With Worksheets("Data")
21
- maxRow = Range("A" & Rows.Count).End(xlUp).Row
22
- Debug.Print (maxRow)
23
-
24
- '検索
25
- For kk = 1 To 6
26
- For dd = 2 To maxRow
27
-
28
- Kw(kk) = .Cells(dd, kk).Value
29
- Debug.Print "Kw(" & kk & "):" & Kw(kk)
30
- Next
31
- Next
32
- End With
33
-
34
-
35
- With Worksheets("Sheet1").Range("A1")
36
- .AutoFilter 'AutoFilter解除
37
- .AutoFilter 1, Kw(1)
38
- .AutoFilter 2, Kw(2)
39
- .AutoFilter 3, Kw(3)
40
- .AutoFilter 4, Kw(4)
41
- .AutoFilter 5, Kw(5)
42
- .AutoFilter 6, Kw(6)
43
-
44
-
45
- End With
46
-
47
- '必要情報のみ"Sheet2"にコピー
48
- '抽出データの最終行を求める
49
- myRow = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
50
- '抽出データをコピーして貼り付け
51
- With Sheets("Sheet1").Range("A1")
52
- .CurrentRegion.Copy Sheets("Sheet2").Range("A1")
53
- End With
54
-
55
- Worksheets("Sheet1").Range("A1").AutoFilter
56
- Worksheets("Sheet2").Activate
57
- Range("A1").Select
58
- End Sub
59
-
60
- ```
16
+ Sheets("Data").Select
17
+ Range("A2").Select
18
+ ActiveCell.FormulaR1C1 = "みかん"
19
+ Sheets("Sheet1").Select
20
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=1, Criteria1:="みかん"
21
+ Sheets("Data").Select
22
+ Range("B2").Select
23
+ ActiveCell.FormulaR1C1 = "S"
24
+ Sheets("Sheet1").Select
25
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=2, Criteria1:="S"
26
+ Sheets("Data").Select
27
+ Range("C2").Select
28
+ ActiveCell.FormulaR1C1 = "A"
29
+ Sheets("Sheet1").Select
30
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=3, Criteria1:="A"
31
+ Sheets("Data").Select
32
+ Range("D2").Select
33
+ ActiveCell.FormulaR1C1 = "120"
34
+ Sheets("Sheet1").Select
35
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=4
36
+ Sheets("Data").Select
37
+ Range("E2").Select
38
+ ActiveCell.FormulaR1C1 = "10"
39
+ Sheets("Sheet1").Select
40
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=5, Criteria1:="10"
41
+ Sheets("Data").Select
42
+ Range("F2").Select
43
+ ActiveCell.FormulaR1C1 = "1200"
44
+ Sheets("Sheet1").Select
45
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=6
46
+ Range("A2:AB14").Select
47
+ Selection.Copy
48
+ Sheets("Sheet2").Select
49
+ Range("A2").Select
50
+ ActiveSheet.Paste
51
+ Sheets("Data").Select
52
+ Range("A3").Select
53
+ Application.CutCopyMode = False
54
+ ActiveCell.FormulaR1C1 = "りんご"
55
+ Range("A14:B23").Select
56
+ Range("B14").Activate
57
+ Sheets("Sheet1").Select
58
+ Rows("1:1").Select
59
+ Range("L1").Activate
60
+ Selection.AutoFilter
61
+ Selection.AutoFilter
62
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=1, Criteria1:="りんご"
63
+ Sheets("Data").Select
64
+ Range("B3").Select
65
+ ActiveCell.FormulaR1C1 = "M"
66
+ Sheets("Sheet1").Select
67
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=2, Criteria1:="M"
68
+ Sheets("Data").Select
69
+ Range("C3").Select
70
+ ActiveCell.FormulaR1C1 = "B"
71
+ Sheets("Sheet1").Select
72
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=3, Criteria1:="B"
73
+ Sheets("Data").Select
74
+ Range("D3").Select
75
+ ActiveCell.FormulaR1C1 = "130"
76
+ Sheets("Sheet1").Select
77
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=4, Criteria1:="130"
78
+ Sheets("Data").Select
79
+ Range("E3").Select
80
+ ActiveCell.FormulaR1C1 = "20"
81
+ Sheets("Sheet1").Select
82
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=5, Criteria1:="20"
83
+ Sheets("Data").Select
84
+ Range("F3").Select
85
+ ActiveCell.FormulaR1C1 = "2600"
86
+ Sheets("Sheet1").Select
87
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=6
88
+ Range("A3:AB6").Select
89
+ Selection.Copy
90
+ Sheets("Sheet2").Select
91
+ Range("A5").Select
92
+ ActiveSheet.Paste
93
+ Sheets("Data").Select
94
+ Range("A4").Select
95
+ Application.CutCopyMode = False
96
+ ActiveCell.FormulaR1C1 = "バナナ"
97
+ Sheets("Sheet1").Select
98
+ Rows("1:1").Select
99
+ Range("L1").Activate
100
+ Selection.AutoFilter
101
+ Selection.AutoFilter
102
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=1, Criteria1:="バナナ"
103
+ Sheets("Data").Select
104
+ Range("B4").Select
105
+ ActiveCell.FormulaR1C1 = "L"
106
+ Sheets("Sheet1").Select
107
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=2, Criteria1:="L"
108
+ Sheets("Data").Select
109
+ Range("C4").Select
110
+ ActiveCell.FormulaR1C1 = "C"
111
+ Sheets("Sheet1").Select
112
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=3, Criteria1:="C"
113
+ Sheets("Data").Select
114
+ Range("D4").Select
115
+ ActiveCell.FormulaR1C1 = "140"
116
+ Sheets("Sheet1").Select
117
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=4
118
+ Sheets("Data").Select
119
+ Range("E4").Select
120
+ ActiveCell.FormulaR1C1 = "30"
121
+ Sheets("Sheet1").Select
122
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=5
123
+ Sheets("Data").Select
124
+ Range("F4").Select
125
+ ActiveCell.FormulaR1C1 = "4200"
126
+ Sheets("Sheet1").Select
127
+ ActiveSheet.Range("$A$1:$AB$500").AutoFilter Field:=6
128
+ Range("A4:AB7").Select
129
+ Selection.Copy
130
+ Sheets("Sheet2").Select
131
+ Range("A7").Select
132
+ ActiveSheet.Paste
133
+ End Sub
134
+ ```

7

修正

2020/05/28 09:38

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -37,6 +37,10 @@
37
37
  .AutoFilter 1, Kw(1)
38
38
  .AutoFilter 2, Kw(2)
39
39
  .AutoFilter 3, Kw(3)
40
+ .AutoFilter 4, Kw(4)
41
+ .AutoFilter 5, Kw(5)
42
+ .AutoFilter 6, Kw(6)
43
+
40
44
 
41
45
  End With
42
46
 

6

修正

2020/05/27 07:52

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -12,6 +12,7 @@
12
12
  ![イメージ説明](bc7619b1827e5b4a2fe35f7a211fb1ec.png)
13
13
 
14
14
  ```ここに言語を入力
15
+ Private Sub CommandButton3_Click()
15
16
  Dim kk As Integer
16
17
  Dim dd As Variant
17
18
  Dim Kw(7) As Variant

5

修正

2020/05/27 07:32

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -4,12 +4,6 @@
4
4
  ・抽出結果を"Sheet2"に貼り付けます。
5
5
  ・抽出結果は１行ごとにひとかたまりで、Sheet1でフィルターをかけます。手動でやりますとおよそ10行くらい抽出されます。ですので、Sheet2は30行くらいになります。
6
6
 
7
- <エラー箇所＞
8
- Kw(k_no) = .Cells(d_no, k_no).Value
9
- ここでデバックとなり、色々と試してみましたがうまくいきません。
10
- すみませんが、ご教示のほどよろしくお願いいたします。
11
-
12
- 追記
13
7
  <エラー内容＞
14
8
  ”Data”シートの２行目のデータしか検索されず、他の３行目、４行目は検索されませんでした。
15
9
  For Nextの書き方が違っているのか、それとも他も含めて問題があるのかが不明です。よろしくお願いいたします。
@@ -18,39 +12,44 @@
18
12
  ![イメージ説明](bc7619b1827e5b4a2fe35f7a211fb1ec.png)
19
13
 
20
14
  ```ここに言語を入力
21
- Private Sub CommandButton1_Click()
22
- Dim Kw As
15
+ Dim kk As Integer
23
- Dim k_no As Long 'A列からF列
24
- Dim d_no As Long '抽出した行数
16
+ Dim dd As Variant
25
- Dim maxRow As Long
17
+ Dim Kw(7) As Variant
26
-
27
18
 
28
- With Worksheets("Data")
19
+ With Worksheets("Data")
29
20
  maxRow = Range("A" & Rows.Count).End(xlUp).Row
30
21
  Debug.Print (maxRow)
22
+
23
+ '検索
24
+ For kk = 1 To 6
25
+ For dd = 2 To maxRow
31
26
 
32
- For k_no = 1 To 6
33
- For d_no = 2 To maxRow
34
-
35
- Kw(k_no) = .Cells(d_no, k_no).Value
27
+ Kw(kk) = .Cells(dd, kk).Value
36
- Debug.Print "Kw(" & k_no & "):" & Kw(k_no)
28
+ Debug.Print "Kw(" & kk & "):" & Kw(kk)
37
-
38
29
  Next
39
30
  Next
40
31
  End With
32
+
33
+
34
+ With Worksheets("Sheet1").Range("A1")
35
+ .AutoFilter 'AutoFilter解除
36
+ .AutoFilter 1, Kw(1)
37
+ .AutoFilter 2, Kw(2)
38
+ .AutoFilter 3, Kw(3)
39
+
40
+ End With
41
+
42
+ '必要情報のみ"Sheet2"にコピー
43
+ '抽出データの最終行を求める
44
+ myRow = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
45
+ '抽出データをコピーして貼り付け
46
+ With Sheets("Sheet1").Range("A1")
47
+ .CurrentRegion.Copy Sheets("Sheet2").Range("A1")
48
+ End With
41
49
 
42
- '検索keywordでFiltering
43
- With Worksheets("Sheet1").Range("A1")
50
+ Worksheets("Sheet1").Range("A1").AutoFilter
44
- .AutoFilter 1, Kw(1)
45
- .AutoFilter 2, Kw(2)
46
- .AutoFilter 3, Kw(3)
47
- .AutoFilter 4, Kw(4)
48
- .AutoFilter 5, Kw(5)
49
- .AutoFilter 6, Kw(6)
50
-
51
- .CurrentRegion.Copy Sheets("Sheet2").Range("A1")
51
+ Worksheets("Sheet2").Activate
52
+ Range("A1").Select
53
+ End Sub
52
54
 
53
-
54
- End With
55
- End Sub
56
55
  ```

4

誤記

2020/05/27 07:32

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -11,7 +11,7 @@
11
11
 
12
12
  追記
13
13
  <エラー内容＞
14
- ”Data”シートの２行目のデータしか検索されず、他の３行目、４行目は４検索されませんでした。
14
+ ”Data”シートの２行目のデータしか検索されず、他の３行目、４行目は検索されませんでした。
15
15
  For Nextの書き方が違っているのか、それとも他も含めて問題があるのかが不明です。よろしくお願いいたします。
16
16
 
17
17
  ”Data"シート

3

追記しました。

2020/05/26 14:18

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -14,7 +14,7 @@
14
14
  ”Data”シートの２行目のデータしか検索されず、他の３行目、４行目は４検索されませんでした。
15
15
  For Nextの書き方が違っているのか、それとも他も含めて問題があるのかが不明です。よろしくお願いいたします。
16
16
 
17
-
17
+ ”Data"シート
18
18
  ![イメージ説明](bc7619b1827e5b4a2fe35f7a211fb1ec.png)
19
19
 
20
20
  ```ここに言語を入力

2

誤記

2020/05/26 14:16

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -11,7 +11,7 @@
11
11
 
12
12
  追記
13
13
  <エラー内容＞
14
- ２行目のデータしか検索されず、他の３行目、４行目は４検索されませんでした。
14
+ ”Data”シートの２行目のデータしか検索されず、他の３行目、４行目は４検索されませんでした。
15
15
  For Nextの書き方が違っているのか、それとも他も含めて問題があるのかが不明です。よろしくお願いいたします。
16
16
 
17
17
 

1

詳細追記しました。

2020/05/26 14:15

投稿

koko2
koko2

スコア21

title CHANGED
File without changes
body CHANGED
@@ -9,6 +9,12 @@
9
9
  ここでデバックとなり、色々と試してみましたがうまくいきません。
10
10
  すみませんが、ご教示のほどよろしくお願いいたします。
11
11
 
12
+ 追記
13
+ <エラー内容＞
14
+ ２行目のデータしか検索されず、他の３行目、４行目は４検索されませんでした。
15
+ For Nextの書き方が違っているのか、それとも他も含めて問題があるのかが不明です。よろしくお願いいたします。
16
+
17
+
12
18
  ![イメージ説明](bc7619b1827e5b4a2fe35f7a211fb1ec.png)
13
19
 
14
20
  ```ここに言語を入力