Excel VBA質問箱 IV

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

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


40896 / 76732 ←次へ | 前へ→

【40925】Re:文字の置換
発言  Jaka  - 06/7/26(水) 12:43 -

引用なし
パスワード
   >よく考えると、Function関数でなくて
>よいです。
>Functionを使えというのが条件になっております。
どっちなのか解らないので、Subプロシジャーにしました。
エクセル関数を作りたいのでしょうか?
だとしたら配列関数が必要になると思います。
ichinoseさんが得意です。

>B1="日"&"本"
>C1="ア"&"メ"&"リ"&"か"
>D1="カ"&"ナ"&"ダ"
また、これの意味がよく解らないけど...。
B1セルに「"日"&"本"」と表示させたいのでしょうか?

Dim st As String, TB As Variant
st = Trim(Range("A1").Value)
'st = Application.Substitute(st, " ", " ")
st = Replace(st, " ", " ")
Do Until InStr(1, st, " ") = 0
  'st = Application.Substitute(st, " ", " ")
  st = Replace(st, " ", " ")
Loop
TB = Split(st, " ")
Range("B1").Resize(, UBound(TB) + 1).Value = TB
0 hits

【40882】文字の置換 やよ 06/7/25(火) 17:57 質問
【40885】Re:文字の置換 Kein 06/7/25(火) 18:12 発言
【40887】Re:文字の置換 へっぽこ 06/7/25(火) 18:18 質問
【40889】Re:文字の置換 やよ 06/7/25(火) 18:34 質問
【40891】Re:文字の置換 へっぽこ 06/7/25(火) 18:50 質問
【40892】Re:文字の置換 やよ 06/7/25(火) 19:31 発言
【40919】Re:文字の置換 へっぽこ 06/7/26(水) 10:44 回答
【40921】Re:文字の置換 ハチ 06/7/26(水) 11:18 発言
【40925】Re:文字の置換 Jaka 06/7/26(水) 12:43 発言
【41053】Re:文字の置換 やよ 06/7/28(金) 13:22 お礼

40896 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free