|
ウッシさん
お返事ありがとうございます。
すみません、桁を間違えていました。
正しくは「1111100022222」を「11111-000-22222」に置換したいです。
桁は毎回13桁です。
コピー貼り付けのコードは下記です。
With c.EntireRow
sheeto.Cells(i, "C").Value = .Range("AK1").Value
sheet.Cells(i, "D").Value = .Range("C1").Value
sheet.Cells(i, "E").Value = .Range("AJ1").Value
sheetCells(i, "F").Value = .Range("AC1").Value
sheet.Cells(i, "G").Value = .Range("AF1").Value
sheet.Cells(i, "L").Value = .Range("F1").Value
sheet.Cells(i, "M").Value = .Range("AV1").Value
sheet.Cells(i, "Q").Value = .Range("AY1").Value
i = i + 1
End With
sheeto.Cells(i, "C").Value = .Range("AK1").Value
の部分が置換したい文字をコピー貼り付けするところです。
どのように記述すればよいでしょうか?
宜しくお願い致します。
▼ウッシ さん:
>こんにちは
>
>桁数はいつも11桁ですか?
>
>コピー貼り付けのコードはどうなっていますか?
>そこに処理を追記すればいいと思います。
|
|