| |
A列の数字を他の列に文字列に、連続的に変換しようとしていますが、一番目のコードは上手く動くのですが、二番と三番目のコードはエラーになります。
何か対策がありましたらアドバイスお願いします。
'−１−
Sub A_E列を文字列に変換()
Dim LstR As Long
LstR = Range("A65536").End(xlUp).Row
For i = 8 To LstR
Range("A" & i).Offset(, 4).Value = "'" & Range("A" & i)
Next
End Sub
'−２−
Sub A_D列を文字列に変換()
Dim LstR As Long
LstR = Range("A65536").End(xlUp).Row
For i = 8 To LstR
Cells(i, 1).Offset(, 3).Value.Formula = " = text(Cells(i, 1),#,###0)"
Next
End Sub
'ー３−
Sub A_B列を文字列に変換()
Dim LstR As Long
LstR = Range("A65536").End(xlUp).Row
For i = 8 To LstR
Cells(i, 1).Offset(, 1).Value.Formula = " = Cells(i, 1) & """""
Next
End Sub
|
|
ToShiYo
- 07/1/29(月) 20:53 -
