teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

4

コード修正

2021/03/22 07:13

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -26,7 +26,7 @@
26
26
 
27
27
  ```vba
28
28
  Dim i
29
- For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row Step 3
29
+ For i = 3 To Ash.Cells(Rows.Count, 2).End(xlUp).Row Step 3
30
30
  Bsh.Cells(i \ 3 + 7, "N").Value = Ash.Cells(i, "B").Value
31
31
  Next i
32
32
  ```

3

コード追記

2021/03/22 07:13

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -14,4 +14,19 @@
14
14
  Bsh.Rnage("N11").Value = Ash.Rnage("B12").Value
15
15
  ```
16
16
 
17
- もしセルが4つとは限らないということなら、そう書いてください。
17
+ ~~もしセルが4つとは限らないということなら、そう書いてください。~~
18
+
19
+ > ※補足:sheet(1)のB3以下の数は変動します。
20
+
21
+ 書いてありましたね。
22
+ Ash の行は3ずつ増えていくので、Step 3 を追加すればOKです。
23
+ Bshの方は1ずつなので、3で割って、ずれてる分だけ加算すればOK。
24
+
25
+ あと元コードは、行と列の指定が逆ですね。
26
+
27
+ ```vba
28
+ Dim i
29
+ For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row Step 3
30
+ Bsh.Cells(i \ 3 + 7, "N").Value = Ash.Cells(i, "B").Value
31
+ Next i
32
+ ```

2

コード修正

2021/03/22 07:11

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -8,10 +8,10 @@
8
8
  Dim Bsh As Worksheet
9
9
  Set Bsh = Sheets(2)
10
10
 
11
- Bsh.Rnage("N8").Value = Bsh.Rnage("B3").Value
11
+ Bsh.Rnage("N8").Value = Ash.Rnage("B3").Value
12
- Bsh.Rnage("N9").Value = Bsh.Rnage("B6").Value
12
+ Bsh.Rnage("N9").Value = Ash.Rnage("B6").Value
13
- Bsh.Rnage("N10").Value = Bsh.Rnage("B9").Value
13
+ Bsh.Rnage("N10").Value = Ash.Rnage("B9").Value
14
- Bsh.Rnage("N11").Value = Bsh.Rnage("B12").Value
14
+ Bsh.Rnage("N11").Value = Ash.Rnage("B12").Value
15
15
  ```
16
16
 
17
17
  もしセルが4つとは限らないということなら、そう書いてください。

1

コード修正

2021/03/22 07:04

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -8,10 +8,10 @@
8
8
  Dim Bsh As Worksheet
9
9
  Set Bsh = Sheets(2)
10
10
 
11
- Bsh.Rnage("N8").Value = Bsh.Rnage("B8").Value
11
+ Bsh.Rnage("N8").Value = Bsh.Rnage("B3").Value
12
- Bsh.Rnage("N9").Value = Bsh.Rnage("B9").Value
12
+ Bsh.Rnage("N9").Value = Bsh.Rnage("B6").Value
13
- Bsh.Rnage("N10").Value = Bsh.Rnage("B10").Value
13
+ Bsh.Rnage("N10").Value = Bsh.Rnage("B9").Value
14
- Bsh.Rnage("N11").Value = Bsh.Rnage("B11").Value
14
+ Bsh.Rnage("N11").Value = Bsh.Rnage("B12").Value
15
15
  ```
16
16
 
17
17
  もしセルが4つとは限らないということなら、そう書いてください。