|
▼ToShiYo さん:
>A列の数字を他の列に文字列に、連続的に変換しようとしていますが、一番目のコードは上手く動くのですが、二番と三番目のコードはエラーになります。
>何か対策がありましたらアドバイスお願いします。
どのようなエラーか書きましょう。
自分で少しは考えましたか?
>'−2−
>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)"
セルへ書き込む式は
= text(Cells(i, 1),#,###0)
で良いんですか?
>'ー3−
>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) & """""
セルへ書き込む式は
= Cells(i, 1) & ""
で良いんですか?
イミディエイトウィンドウを使いましょう。
|
|