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