No.6ベストアンサー
- 回答日時:
> 具体的にどのようにやるんでしょうか?
置換の対象が「大字」みたいな2文字以上の文字列を含むかどうかで
全く違ってきます。
元のデータを「テーブル1」
置換用を「置換テーブル」
として読み込んであるものとして
let
置換テーブル = #table(type table[前=text, 後=text],{{" ",""},{"字",""},{"#(lf)",""},{"ケ","ケ"}}),
テーブル1 = #table(type table[名前=text], {{"あいう かきく さしす"},{"あいう えお字かきく"},{"あいうえお#(lf)かきくけこ"},{"あいうケえこケさし"}}),
値の置換 = Table.AddColumn(テーブル1, "変換後",
each List.Reverse(
List.Generate(
()=> [i=0, name=[名前]],
each [i] <= Table.RowCount(置換テーブル),
each [
i = [i]+1,
name = Text.Replace([name],置換テーブル{i-1}[前],置換テーブル{i-1}[後])
],
each [name]
)
){0},
type text
)
in
値の置換
1文字→1文字の置換でよければ Text.Splitで分割したものを置換して
から結合しなおせばいいです。
No.8
- 回答日時:
こんばんは
当方Microsoft365ではなく2019のため、
No.7さんのレイアウトで配列数式版で考えてみました。
置換後はテーブルではなく、CHOOSE関数を使用している関係上、
$E$3,$E$4,$E$5,$E$6とダイレクトにセル指定する必要があります。
置換後の空欄セルは ="" でセットしてください。
ご参考です。
{=CONCAT(
IFERROR(
CHOOSE(
IFERROR(
MATCH(MID(A6,ROW(OFFSET($A$1,,,LEN(A6))),1),$D$3:$D
$6,0),
LEN(A6)+1),
$E$3,$E$4,$E$5,$E$6),
MID(A6,ROW(OFFSET($A$1,,,LEN(A6))),1))
)}
No.7
- 回答日時:
Microsoft365みたいなので一応 数式も載せておきます。
画像右のように置換テーブルを作成しておいて
B3に
=LET(_rng,[@名前],_rws,ROWS(置換テーブル[前]),INDEX(SCAN([@名前],SEQUENCE(_rws),LAMBDA(a,b,SUBSTITUTE(a,INDEX(置換テーブル[前],b),INDEX(置換テーブル[後],b)))),_rws))
No.5
- 回答日時:
> 一つ一つ、複数のSUBSTITUTEでくくりながら長い数式を書くしか
> ないでしょうか?
「数式でやる場合」ですか? バージョンによります。
LAMBDA関数が使えるなら再帰処理が可能です。
古いバージョンの場合は循環参照で反復計算させればできます。
個人的にはお勧めしません。
マクロでやれば当然できますが 置換の対応表があるならクエリでやっ
てもいいように思います。
ありがとうございます。
こちらOffice365なので最新です。
「LAMBDA関数」最近別件で耳にしましたので興味があります。
しかし本件はお勧めしないやり方なんですね。。。
> 置換の対応表があるならクエリで
具体的にどのようにやるんでしょうか?
・半角スペースを削除
・”字”を削除
・改行コードを削除
・”ケ”を”ケ”に置換
こういった複数条件を対応表にして実現できますか?
No.4
- 回答日時:
VBAで以下のようなコードを書くと、置換ができます。
Sub Main
Dim MotoText() As Variant, SakiTest() as Variant
Dim i As Integer
MotoText = Array(" ", "字", Chr(10), "ケ")
SakiText = Array("", "", "", "ケ")
Range("B1:B10") = Range("A1:A10")
For i = 0 To UBound(MotoText)
Range("B1:B10").Replace What:=MotoText(i), replacement:=SakiText(i)
Next i
End Sub
ありがとうございます。その方法だと複数の条件を併記すれば拡張性ありますね。
ネックと言えば一度実行すると履歴を辿って元に戻せない事ですね。
方法を考えて活用したいと思います。
No.3
- 回答日時:
こんにちは
置換の組み合わせの種類がいろいろあるような場合は、あまり有効ではありませんけれど・・
組み合わせ種類が少なければ、ユーザ定義関数にしておいて、それを利用するとか。
やっている内容は変わらないので処理としてはメリットはありませんけれど、セル内の関数式を単純化できるというメリットはあるでしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
- Excel(エクセル) Excel 散布図グラフ 外れ値 セル番地参照方法 4 2022/04/19 18:56
- Excel(エクセル) Excelの関数で実現可能か知りたいです 5 2023/08/06 08:58
- Excel(エクセル) Excel 指定した固有番号で、複数の行を削除する方法は? 2 2022/03/30 15:18
- Excel(エクセル) substitute関数についての質問です 3 2023/06/21 11:57
- Excel(エクセル) VBA 指定した列にある日時データから時間を削除する方法について 4 2022/04/14 11:17
- Access(アクセス) Access2016でフォーム内にExcelの複数シートを 表示させるイメージで複数テーブルの デー 1 2022/11/25 15:30
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルの関数SUBSTITUTEを、複数の条件を簡単に書く方法
Excel(エクセル)
-
Excelの関数 SUBSTITUTEとIF関数の組み合わせについて
Excel(エクセル)
-
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
-
4
VBAで文字列を数値に変換したい
Excel(エクセル)
-
5
【Excel関数】特定の文字を別表のリストの文字に変換したい
Excel(エクセル)
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
入力規則でスペース入力を禁止する方法
その他(コンピューター・テクノロジー)
-
8
複数の文字列のいずれかが含まれていたらTRUEを返す関数について
Excel(エクセル)
-
9
Excelでカタカナ・ひらがな・英数字の抽出
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
行数が不規則な一週間ごとの合...
-
文字列になっている時間をVBAで...
-
ある列、或いは、ある行のセル...
-
マクロの有効化するダイヤログ...
-
【マクロ】フォルダからエクセ...
-
Excelでの時間帯の入力
-
excel で二つのどちらかを選ぶ
-
エクセルの順位別一覧表の自動...
-
Excel 2019 のピボットテーブル...
-
エクセル 価格表から単価を呼び...
-
excelの不要な行の削除ができな...
-
エクセルで特定の範囲内から小...
-
シートAで横に並んだ項目→シー...
-
Excelが固まってしまった。
-
Excel2013のF6キー操作について
-
【関数】スペースがいくつ入っ...
-
Excelはなんで先頭の0を消すん...
-
【Microsoft Office Excel Comp...
-
西暦や和暦の表示をyyyymmdd表...
-
別シートからの文字を変更
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報