Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9341 / 76732

←次へ　｜　前へ→


	【72953】Re:文字列の置換について

まい - 12/10/16(火) 16:10 -


	引用なし

	パスワード

ウッシさん

お返事ありがとうございます。

すみません、桁を間違えていました。
正しくは「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桁ですか？
>
>コピー貼り付けのコードはどうなっていますか？
>そこに処理を追記すればいいと思います。

0 hits

▼

【72951】文字列の置換について まい 12/10/16(火) 12:59