エクセルシートで行を文字列連結している列を連結したいのですが・・
行を文字列連結しているセル「AY4」は、
データー入力されていない時は、「0」表示しないとか「””」もしくは指定文字列にしています。
=IF(AT4=0,"連結なし",ConcatenateRangeText(C4:AY4))
もしくは
=IF(AT4=0,"",ConcatenateRangeText(C4:AY4))
この「AY4」のセルでデーター入力されたものだけ文字列連結したい
画面上は空白だったり「連結なし」と表示されるのでコピーすれば良いのしょうが、ユーザーフォームのCommandButton11_Click()で処理したいのですが。
又、データー入力のある、行の文字列連結と列の文字列を一緒で出来ても良いのですが
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
> 一部説明間違いもありました
一部なんてものじゃ無いでしょw
ConcatenateRangeTextって「インストラクターのネタ帳」さんのユーザ自作関数ですね。
(私も良くお世話になります)
出典を書いておかないと
ForEachループ内の
ret = ret & rng.Text
で、IF文で連結を判断するか
連結と書いてあったが、セルBA**とか言いだしたところを見ると
「空白を無視して左詰めにコピーしたい」とも考えられそう。
だったらForEachの外でカウンタを宣言してゼロで初期化し、
ForEachループ内でIF文て判断してコピー対象ならカウンタに1加算して
Range(”BA4”).offset(0, カウンタ)= rng.text
の関数作るか、ですね
> ここまでを一括処理したいのが希望です
#1の4)で示しました
がんばってください
参考URL:http://www.relief.jp/itnote/archives/001342.php
No.1
- 回答日時:
VBAで記述しているのだから、
1)AY4の値を変数(Variant型)に格納しておいて
2)ConcatenateRangeText(C4:AY4) してから
3)変数に格納しておいたAY4の値を代入
4)その一連の処理を CommandButton11_Click() で呼び出す
じゃダメなんですか?
この回答への補足
bin-chanさん
説明が悪くてすみません
一部説明間違いもありました
「BA4」に
=IF(AT4=0,"",ConcatenateRangeText(C4:AY4))
以下「BA***」まで式コピー
データーのあるなし判断セルは「AT4」
行の文字列連結セル「BA4」から「BA***」
この「BA4」から「BA***」の列の文字列連結する時に、データーの無いセルは連結しない(データーのある行だけ)で値を取得したいのです(毎回入力データー数が違うため)
文字列連結したものをテキストとして吐き出したい
もしくはクリップボードにいれて、テキストとして貼り付けたいのです
ここまでを一括処理したいのが希望です
よろしくお願い致します
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでアルファベットか数...
-
VBAでの Replace関数で、ワイル...
-
文字列からタブコードを取り除...
-
EXCELで=より左の文字を一括で...
-
Excelで3E8を3.00E+8にしない方...
-
Left関数とRight関数を合わせた...
-
エクセルで文字列をtxtファイル...
-
エクセル 数値データを桁をそ...
-
エクセルで文字列の最大値を抽...
-
Excelで指数表現しないようにす...
-
同一セル内に関数と文字列を同...
-
【Excel VBA】複数ある特定の文...
-
MS SQLServer のSQLで文字列の...
-
bashスクリプトでの文字列から...
-
VBA shellでメールを作成した際...
-
Msgboxの×が押されたとき
-
VBscriptで文字サイズを指定で...
-
VB6.0のString関数に代わるVB20...
-
UWSCに詳しい方簡単なテキスト...
-
StringGridで選択した箇所の文...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでアルファベットか数...
-
EXCELで=より左の文字を一括で...
-
文字列からタブコードを取り除...
-
VBAでの Replace関数で、ワイル...
-
Excelで指数表現しないようにす...
-
Excelで3E8を3.00E+8にしない方...
-
エクセルで文字列をtxtファイル...
-
【Excel VBA】複数ある特定の文...
-
Left関数とRight関数を合わせた...
-
同一セル内に関数と文字列を同...
-
アクセスで特定の数字以外(複...
-
MS SQLServer のSQLで文字列の...
-
エクセルで文字列の最大値を抽...
-
VBA2005 16進を2桁で表示したい。
-
ORCLEでの小数の表示方法の変更...
-
エクセル 数値データを桁をそ...
-
VBの「As String * 128」とは?
-
CStringの文字列検索&抜き出し...
-
エクセルでセル内の文字列の最...
-
Msgboxの×が押されたとき
おすすめ情報