回答編集履歴
2
回答
test
CHANGED
@@ -1 +1,9 @@
|
|
1
|
+
改めてコードを読みましたが、そもそも参考にされたサイトのコード自体がダメですね。。。
|
2
|
+
|
1
|
-
|
3
|
+
あれではコンパイル通りません。
|
4
|
+
|
5
|
+
If文の条件式に右辺がなかったり、不等号がHTMLエンコード文字だったり、、、
|
6
|
+
|
7
|
+
|
8
|
+
|
9
|
+
ちょっと解読に時間が掛かりそうで、本日中のフォローは難しそうです。(ごめんなさい)
|
1
訂正
test
CHANGED
@@ -1,39 +1 @@
|
|
1
|
-
こんな感じでどうでしょうか?
|
2
|
-
|
3
|
-
```ここに言語を入力
|
4
|
-
|
5
|
-
Sub hogehoge()
|
6
|
-
|
7
|
-
Dim offsetClm1 As Long
|
8
|
-
|
9
|
-
Dim offsetRow1 As Long
|
10
|
-
|
11
|
-
Dim offsetRow2 As Long
|
12
|
-
|
13
|
-
|
14
|
-
|
15
|
-
offsetRow2 = 0
|
16
|
-
|
17
|
-
|
1
|
+
すみません。回答先を間違えました。
|
18
|
-
|
19
|
-
For offsetRow1 = 0 To 9
|
20
|
-
|
21
|
-
For offsetClm1 = 0 To 4
|
22
|
-
|
23
|
-
.Sheets("yomitori").Range("A1").Offset(offsetRow2, 0).Value = .Sheets("SheetA").Range("A1").Offset(offsetRow1, offsetClm1).Value
|
24
|
-
|
25
|
-
.Sheets("yomitori").Range("B1").Offset(offsetRow2, 0).Value = .Sheets("SheetA").Range("A1").Offset(offsetRow1, offsetClm1).Value
|
26
|
-
|
27
|
-
offsetRow2 = offsetRow2 + 1
|
28
|
-
|
29
|
-
Next offsetClm1
|
30
|
-
|
31
|
-
Next offsetRow1
|
32
|
-
|
33
|
-
End With
|
34
|
-
|
35
|
-
End Sub
|
36
|
-
|
37
|
-
|
38
|
-
|
39
|
-
```
|