質問編集履歴
2
スクショの添付
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -5,8 +5,14 @@
|
|
|
5
5
|
貼り付けるということを繰り返したいです。
|
|
6
6
|
データ量は毎回変化します。
|
|
7
7
|
|
|
8
|
+
](57af07b635ab5c6f58e9a8bf9b746dd3.jpeg)
|
|
8
9
|
|
|
10
|
+
|
|
9
11
|
|
|
12
|
+
|
|
13
|
+
|
|
14
|
+
|
|
15
|
+
|
|
10
16
|
### 発生している問題・エラーメッセージ
|
|
11
17
|
|
|
12
18
|
下に貼り付けていく方法がわかりません。
|
1
タイトルと実現したいことの修正
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
Python Pywin32
|
|
1
|
+
Python Pywin32 Excel フィルタをかけたデータを別シートにコピーを繰り返したい
|
body
CHANGED
|
@@ -1,26 +1,33 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
2
|
|
|
3
|
-
|
|
3
|
+
sheet1でフィルタをかけたデータをsheet2にコピぺ。
|
|
4
|
+
sheet2に貼り付けたデータの下に、次にsheet1でフィルタをかけたデータを、
|
|
5
|
+
貼り付けるということを繰り返したいです。
|
|
6
|
+
データ量は毎回変化します。
|
|
4
7
|
|
|
5
8
|
|
|
6
9
|
|
|
7
10
|
### 発生している問題・エラーメッセージ
|
|
8
11
|
|
|
9
|
-
貼り付けたデータの下に、次にフィルタをかけたデータを貼り付けることを、
|
|
10
|
-
|
|
12
|
+
下に貼り付けていく方法がわかりません。
|
|
11
|
-
データ量は毎回変化します。
|
|
12
13
|
最終行のRange('A2')これをどう書き換えれば良いかがわかりません。
|
|
13
14
|
|
|
14
15
|
### 該当のソースコード
|
|
15
|
-
sheet = book.Worksheets('
|
|
16
|
+
sheet = book.Worksheets('sheet1')
|
|
16
|
-
sheet.Range('A1:N1').AutoFilter(Field=12, Criteria1='
|
|
17
|
+
sheet.Range('A1:N1').AutoFilter(Field=12, Criteria1='4月')
|
|
17
18
|
last = sheet.Range('B1').End(-4121).Row
|
|
18
|
-
sheet.Range('A2:M' +str(last)).Copy(Destination = book.Worksheets('
|
|
19
|
+
sheet.Range('A2:M' +str(last)).Copy(Destination = book.Worksheets('sheet2').Range('A2'))
|
|
19
20
|
|
|
21
|
+
sheet = book.Worksheets('sheet1')
|
|
22
|
+
sheet.Range('A1:N1').AutoFilter(Field=12, Criteria1='5月')
|
|
23
|
+
last = sheet.Range('B1').End(-4121).Row
|
|
24
|
+
sheet.Range('A2:M' +str(last)).Copy(Destination = book.Worksheets('sheet2').Range('A2'))
|
|
20
25
|
|
|
26
|
+
|
|
21
27
|
### 試したこと
|
|
22
28
|
|
|
23
|
-
VBA
|
|
29
|
+
VBA、Pywin32も調べたのですがわかりませんでした。
|
|
30
|
+
お知恵をお貸しください。
|
|
24
31
|
|
|
25
32
|
### 補足情報（FW/ツールのバージョンなど）
|
|
26
33
|
|