回答編集履歴
3
コード修正
answer
CHANGED
|
@@ -7,15 +7,15 @@
|
|
|
7
7
|
・ただし、既に貼り付けられているものに追加する。
|
|
8
8
|
※「集計シート」はソースコードのどこにも出てこなかったので無視しています。
|
|
9
9
|
|
|
10
|
-
その前提でコードを書いてみました。
|
|
10
|
+
その前提でコードを書いてみました。**(2016/11/6 14:10編集)**
|
|
11
11
|
```ここに言語を入力
|
|
12
12
|
Sub Copy()
|
|
13
13
|
Dim i As Integer
|
|
14
14
|
Dim DstSheet As String
|
|
15
15
|
Dim DstRows As Integer
|
|
16
16
|
|
|
17
|
-
For i = 1 To
|
|
17
|
+
For i = 1 To Sheets("入力").Range("C1").CurrentRegion.Rows.Count
|
|
18
|
-
Select Case
|
|
18
|
+
Select Case Sheets("入力").Cells(i, 3).Value
|
|
19
19
|
Case "1.Aチーム"
|
|
20
20
|
DstSheet = "Aチーム"
|
|
21
21
|
Case "2.Bチーム"
|
|
@@ -25,11 +25,11 @@
|
|
|
25
25
|
Case "4.Dチーム"
|
|
26
26
|
DstSheet = "Dチーム"
|
|
27
27
|
Case "5.Eチーム"
|
|
28
|
-
DstSheet = "
|
|
28
|
+
DstSheet = "Eチーム"
|
|
29
29
|
End Select
|
|
30
30
|
|
|
31
|
-
DstRows =
|
|
31
|
+
DstRows = Sheets(DstSheet).Range("A1").CurrentRegion.Rows.Count + 1
|
|
32
|
-
|
|
32
|
+
Sheets("入力").Range(Cells(i, 3), Cells(i, 33)).Copy Destination:=Sheets(DstSheet).Cells(DstRows, 1)
|
|
33
33
|
Next
|
|
34
34
|
End Sub
|
|
35
35
|
```
|
2
誤字修正
answer
CHANGED
|
@@ -47,4 +47,4 @@
|
|
|
47
47
|
お困りだった「rowやcells("d"&i:"AG"&i)等」の部分の指定はコードをご覧ください。
|
|
48
48
|
|
|
49
49
|
※レコードはC列からAG列のようですが、転記は本当にD列からAG列なのでしょうか？(私のコードはC列からコピーする書き方にしています)
|
|
50
|
-
※Office365ではテストしていないです。済みません。Excel2013で確認してます。
|
|
50
|
+
※Office365ではテストしていないです。済みません。Excel2013で確認してます。
|
1
疑問点追記
answer
CHANGED
|
@@ -46,4 +46,5 @@
|
|
|
46
46
|
|
|
47
47
|
お困りだった「rowやcells("d"&i:"AG"&i)等」の部分の指定はコードをご覧ください。
|
|
48
48
|
|
|
49
|
+
※レコードはC列からAG列のようですが、転記は本当にD列からAG列なのでしょうか？(私のコードはC列からコピーする書き方にしています)
|
|
49
50
|
※Office365ではテストしていないです。済みません。Excel2013で確認してます。」
|