質問編集履歴
2
スクショの添付
test
CHANGED
File without changes
|
test
CHANGED
@@ -9,6 +9,18 @@
|
|
9
9
|
貼り付けるということを繰り返したいです。
|
10
10
|
|
11
11
|
データ量は毎回変化します。
|
12
|
+
|
13
|
+
|
14
|
+
|
15
|
+
](57af07b635ab5c6f58e9a8bf9b746dd3.jpeg)
|
16
|
+
|
17
|
+
|
18
|
+
|
19
|
+

|
20
|
+
|
21
|
+
|
22
|
+
|
23
|
+

|
12
24
|
|
13
25
|
|
14
26
|
|
1
タイトルと実現したいことの修正
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
Python Pywin32
|
1
|
+
Python Pywin32 Excel フィルタをかけたデータを別シートにコピーを繰り返したい
|
test
CHANGED
@@ -2,7 +2,13 @@
|
|
2
2
|
|
3
3
|
|
4
4
|
|
5
|
-
|
5
|
+
sheet1でフィルタをかけたデータをsheet2にコピぺ。
|
6
|
+
|
7
|
+
sheet2に貼り付けたデータの下に、次にsheet1でフィルタをかけたデータを、
|
8
|
+
|
9
|
+
貼り付けるということを繰り返したいです。
|
10
|
+
|
11
|
+
データ量は毎回変化します。
|
6
12
|
|
7
13
|
|
8
14
|
|
@@ -14,11 +20,7 @@
|
|
14
20
|
|
15
21
|
|
16
22
|
|
17
|
-
貼り付けたデータの下に、次にフィルタをかけたデータを貼り付けることを、
|
18
|
-
|
19
|
-
|
23
|
+
下に貼り付けていく方法がわかりません。
|
20
|
-
|
21
|
-
データ量は毎回変化します。
|
22
24
|
|
23
25
|
最終行のRange('A2')これをどう書き換えれば良いかがわかりません。
|
24
26
|
|
@@ -26,13 +28,23 @@
|
|
26
28
|
|
27
29
|
### 該当のソースコード
|
28
30
|
|
29
|
-
sheet = book.Worksheets('
|
31
|
+
sheet = book.Worksheets('sheet1')
|
30
32
|
|
31
|
-
sheet.Range('A1:N1').AutoFilter(Field=12, Criteria1='
|
33
|
+
sheet.Range('A1:N1').AutoFilter(Field=12, Criteria1='4月')
|
32
34
|
|
33
35
|
last = sheet.Range('B1').End(-4121).Row
|
34
36
|
|
35
|
-
sheet.Range('A2:M' +str(last)).Copy(Destination = book.Worksheets('
|
37
|
+
sheet.Range('A2:M' +str(last)).Copy(Destination = book.Worksheets('sheet2').Range('A2'))
|
38
|
+
|
39
|
+
|
40
|
+
|
41
|
+
sheet = book.Worksheets('sheet1')
|
42
|
+
|
43
|
+
sheet.Range('A1:N1').AutoFilter(Field=12, Criteria1='5月')
|
44
|
+
|
45
|
+
last = sheet.Range('B1').End(-4121).Row
|
46
|
+
|
47
|
+
sheet.Range('A2:M' +str(last)).Copy(Destination = book.Worksheets('sheet2').Range('A2'))
|
36
48
|
|
37
49
|
|
38
50
|
|
@@ -42,7 +54,9 @@
|
|
42
54
|
|
43
55
|
|
44
56
|
|
45
|
-
VBA
|
57
|
+
VBA、Pywin32も調べたのですがわかりませんでした。
|
58
|
+
|
59
|
+
お知恵をお貸しください。
|
46
60
|
|
47
61
|
|
48
62
|
|