質問編集履歴
1
ご指摘頂きました通り、コードと画像を追加させて頂きました。ご確認の程お願い申し上げます。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -12,6 +12,7 @@
|
|
|
12
12
|
|
|
13
13
|
よろしくお願い致します。
|
|
14
14
|
|
|
15
|
+
```
|
|
15
16
|
Sub test()
|
|
16
17
|
With Worksheets("Sheet1")
|
|
17
18
|
With .Range("K10", .Cells(Rows.Count, "J").End(xlUp).Offset(, 1))
|
|
@@ -20,4 +21,10 @@
|
|
|
20
21
|
End With
|
|
21
22
|
End With
|
|
22
23
|
MsgBox "処理が終了しました"
|
|
23
|
-
End Sub
|
|
24
|
+
End Sub
|
|
25
|
+
```
|
|
26
|
+
|
|
27
|
+
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
|