回答編集履歴
1
コード追記
test
CHANGED
@@ -27,3 +27,14 @@
|
|
27
27
|
Range("B1").Value = Num1ColWide(Range("A1").Value)
|
28
28
|
End Sub
|
29
29
|
```
|
30
|
+
|
31
|
+
列に入力されているセルを変換してB列に表示する場合は、ループ処理で1セルずつ変換します。
|
32
|
+
|
33
|
+
```vba
|
34
|
+
Sub Macro1()
|
35
|
+
Dim r As Range
|
36
|
+
For Each r In Columns("A").SpecialCells(xlCellTypeConstants)
|
37
|
+
r.Offset(, 1) = Num1ColWide(r)
|
38
|
+
Next
|
39
|
+
End Sub
|
40
|
+
```
|