質問編集履歴

1

ソースコードに移動しました

2020/02/09 21:56

投稿

urusibara
urusibara

スコア5

test CHANGED
File without changes
test CHANGED
@@ -22,59 +22,57 @@
22
22
 
23
23
  ### 該当のソースコード
24
24
 
25
-
26
-
27
- ```ここに言語名を入力
28
-
29
25
  ソースコード
30
26
 
31
27
  Sub コピー()
32
28
 
33
29
 
34
30
 
35
- Dim i As Long
31
+ Dim i As Long
36
32
 
37
- Dim strSheetName As String
33
+ Dim strSheetName As String
38
34
 
39
- Dim ws01 As Worksheet '集計
35
+ Dim ws01 As Worksheet '集計
40
36
 
41
- Dim ws02 As Worksheet '前半
37
+ Dim ws02 As Worksheet '前半
42
38
 
43
- Dim ws03 As Worksheet '後半
39
+ Dim ws03 As Worksheet '後半
44
-
45
-
46
-
47
- Set ws01 = Worksheets("集計") 'ワークシートの設定
48
-
49
- Set ws02 = Worksheets("前半") 'ワークシートの設定
50
-
51
- Set ws03 = Worksheets("後半") 'ワークシートの設定
52
-
53
-
54
40
 
55
41
 
56
42
 
57
- For i = 2 To ws01.Cells(Rows.Count, "A").End(xlUp).Row '2行目~最終デタ行までル
43
+ Set ws01 = Worksheets("集計") 'クシトの設定
58
44
 
59
- strSheetName = Cells(i, "A").Value 'セル値を取得
45
+ Set ws02 = Worksheets("前半") 'ワークシート設定
60
46
 
61
-
47
+ Set ws03 = Worksheets("後半") 'ワークシートの設定
62
48
 
63
- Workbooks.Open Filename:="C:\Users\k\Desktop\新しいフォルダー (21)\前半.xlsm"
64
49
 
65
- Workbooks("前半.xlsm").Activate
66
50
 
67
- Workbooks("前半.xlsm").Worksheets(strSheetName).Range("A5").Copy
51
+ For i = 2 To ws01.Cells(Rows.Count, "A").End(xlUp).Row '2行目~最終データ行までループ
68
52
 
69
- Workbooks("請求書.xlsm").Worksheets(strSheetName).Range("A62").xlPasteValues
53
+ strSheetName = Cells(i, "A").Value 'セルの値を取得
70
54
 
71
-
72
55
 
56
+
57
+ Workbooks.Open Filename:="C:\Users\users\Desktop\新しいフォルダー (21)\前半.xlsm"
58
+
59
+ Workbooks("前半.xlsm").Activate
60
+
61
+ Workbooks("前半.xlsm").Worksheets(strSheetName).Range("A5").Copy
62
+
63
+ Workbooks("請求書.xlsm").Worksheets(strSheetName).Range("A62").xlPasteValues
64
+
65
+
66
+
73
- Next
67
+ Next
74
68
 
75
69
 
76
70
 
77
71
  End Sub
72
+
73
+ ```ここに言語名を入力
74
+
75
+ VBA
78
76
 
79
77
 
80
78