質問: excelにて、'c43c410' のようにセルデーターから ' ' 消して、英数字だけにする excelにて、'c43c410' のようにセルデーターから ' ' 消して、英数字だけにするマクロ(vba)とデーターを英数字のみを取り出して、別列ヘ転記するマクロ(vba)を作りたいのですが、どのようにしたらよいのか分からず困っております。また、 お分かりになる方がおりましたら、ご教授願います。 行いたい事 1'c43c410' のようにセルデーターから ' ' 消して、英数字だけにするマクロ(vba) 2データーの英数字のみを取り出して、別列ヘ転記するマクロ(vba) <詳細> ・シート名⇒sheet1 データーは、k列にあり、日によって増減します。 'c43c410' → ' 'を消して、英数字の c43c410 のみ残したい。また、データーを英数字のみを取り出して、別列(l列)ヘ転記するマクロ(vba)を作りたい。 a列 b c e f g h ij k列 l列 1 'c43c410' 2 'eae908c' 3 ※vbaにて、行いたいです。 説明がうまくなくすみませんが、お分かりにある方がおりましたら教えて頂きたいです。 作ってみようと思ったのですが、進みません sub sample() selection.replace "'", "" worksheets("sheet1").range("k") selection.pastespecial paste:=xlpasteall, operation:=xladd ? end sub
回答: それでは以下ではいかがですか? sub sample() dim 行 as long dim 幅 as single 幅 = columns("k:k").columnwidth ' セル幅が狭いと「#####」のようになってしまうのを防止処理 columns("k:k").entirecolumn.autofit ' セル幅が狭いと「#####」のようになってしまうのを防止処理 for 行 = 1 to cells(rows.count, 11).end(xlup).row cells(行, 11).value = replace(cells(行, 11).text, "'", "") next columns("k:k").columnwidth = 幅 ' セル幅が狭いと「#####」のようになってしまうのを防止処理 end sub