回答編集履歴
2
コード修正
test
CHANGED
|
@@ -10,7 +10,9 @@
|
|
|
10
10
|
|
|
11
11
|
Dim wb As Workbook
|
|
12
12
|
Set wb = Workbooks.Open ("C:\test.xlsx")
|
|
13
|
+
On Error Resume Next
|
|
13
14
|
wb.WorkSheets(1).Range("B1:B10").SpecialCells(xlCellTypeBlanks).Item(1).Value = """" & s & """"
|
|
15
|
+
If Err <> 0 Then MsgBox "出力先に空白セルはありません。"
|
|
14
16
|
End Sub
|
|
15
17
|
```
|
|
16
18
|
|
1
コード修正
test
CHANGED
|
@@ -10,7 +10,7 @@
|
|
|
10
10
|
|
|
11
11
|
Dim wb As Workbook
|
|
12
12
|
Set wb = Workbooks.Open ("C:\test.xlsx")
|
|
13
|
-
wb.WorkSheets(1).Range("B1:B10").SpecialCells(xlCellTypeBlanks).Item(1).Value = s
|
|
13
|
+
wb.WorkSheets(1).Range("B1:B10").SpecialCells(xlCellTypeBlanks).Item(1).Value = """" & s & """"
|
|
14
14
|
End Sub
|
|
15
15
|
```
|
|
16
16
|
|