EXCELVBA
次のようなことをするマクロconbi_macroを作りたいのですが。
ヒントください。
(初期状態)
セルa
セル1←カーソルがある
セル2
セル3
セル4=N
ブランクの行
セル5
(結果)
セルa
結果のセル1=“セル1”&“セル1”&――“セルN”
セル5
(動作)
カーソルがあるセル1以下セルからブランクの前までのセルまでを結合して、セル1にいれ、ブランクの行までを消す。
(理想)結合されたデータは自然に元あったデータがつみ上がったようになっていたい。
セル1=
Def
GHI
J
セル2=
MNO
PQR
STJ
結果:理想
Def
GHI
J ←
MNO ←
PQR
STJ
結果:少し不満
Def
GHI
JMN ←
OPQR
STJ
No.1
- 回答日時:
質問の意味が採りにくい。
回答者・読者の負担を少しでも少なくしてください。
セル1とかせず、セルA1とか具体的に書いてください。
>カーソルがあるセル1以下セルからブランクの前までのセルまでを結合して、セル1にいれ、ブランクの行までを消す。
セル1・・は同列か?私の言うとおりに書けば同列のことかは判る。
●この質問はVBA向きだと思うが、VBAをやった経験はあるのか。
本件でマクロの記録とかやってみたのか。
そしてどこを相対化するのにつまずいたのか。
>質問の意味が採りにくい。
回答者・読者の負担を少しでも少なくしてください。
;はい、今後改善します。
>セル1とかせず、セルA1とか具体的に書いてください。
:そのとおりですね。今後はA1とか書くようにします。
>カーソルがあるセル1以下セルからブランクの前までのセルまでを結合して、セル1にいれ、ブランクの行までを消す。
セル1・・は同列か?
:はい、同列です。
>私の言うとおりに書けば同列のことかは判る。
その通りです。情報を多く伝えなくてはいけないと思いました。
ただカーソル位置が任意だったため、セルnとか書いたが反省してます。そう記述すべきですね。
●この質問はVBA向きだと思うが、VBAをやった経験はあるのか。
>やった経験ありますが、上の人のような回答がでてくるととても思えません。まずは兼好法師の教えにあるよう、よき先達のよきプログラムを得てそれから学んだほうが高いところへ早く到達できると思っています。
なお質問に先たち、自分なりにやりたいことをマクロ記述しましたが、回答者の回答とは全く類似点なく、このような質問をいたしました。
今後ともimogashi氏のご指導よろしくお願いいたします。
(自分では発想できません)
If TypeName(Selection) = "Range" And Selection.Value <> "" Then
ptr = 0
No.2ベストアンサー
- 回答日時:
なんだかよく分かりませんが、とにかくマクロにしてみました。
質問に書かれていない条件は以下のように想定しています。条件が違うなら、ご自身で修正してください・処理は1回のみ実行する。(空白行が出現したら終わり)
・選択されているセルが空白なら処理は実行しない
以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はワークシート画面に戻ってALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。
Sub Macro1()
Dim ptr As Long
Dim str As String
If TypeName(Selection) = "Range" And Selection.Value <> "" Then
ptr = 0
With Selection
Do While Len(.Offset(ptr, 0).Value) > 0
str = str & .Offset(ptr, 0).Value & Chr(10)
ptr = ptr + 1
Loop
.Value = Left(str, Len(str) - 1)
.WrapText = True
Range(.Offset(1, 0), .Offset(ptr, 0)).Delete shift:=xlUp
End With
End If
End Sub
ところで「conbi_macro」ってなんでしょう? モジュール名? 新造語?
聞き慣れない名詞は解説を付けていただかないと回答する側は混乱しますよ。(ちなみに「conbi」のスペルは「combi」では?)
目的のものができとても便利です。
WORDからexcelにはりつけたとき、wordの1セルが複数セルに分解されることあり。これで解決。
すばらしいです。今後これを参考に改良したい。
ご回答どうもありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで数式内の文字色を一部だ...
-
貼り付けで複数セルに貼り付けたい
-
(Excel)数字記入セルの数値の後...
-
【エクセル】IF関数 Aまたは...
-
Excelでのコメント表示位置
-
エクセルで指定したセルのどれ...
-
エクセルの書式設定の表示形式...
-
セルをクリック⇒そのセルに入力...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
Excel 例A(1+9) のように番地の...
-
【Excel】 セルの色での判断は...
-
エクセルで住所と建物名を分け...
-
セルの高さ(行高)を求めるには?
-
excelの特定のセルの隣のセル指...
-
Excel2003 の『コメント』の編...
-
エクセル オートフィルタで絞...
-
エクセル 足して割る
-
エクセルの一つのセルに複数の...
-
EXCEL VBA セルに既に入...
-
Excelで教えてください。 バー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けで複数セルに貼り付けたい
-
【エクセル】IF関数 Aまたは...
-
Excelで数式内の文字色を一部だ...
-
エクセルで指定したセルのどれ...
-
(Excel)数字記入セルの数値の後...
-
枠に収まらない文字を非表示に...
-
セルをクリック⇒そのセルに入力...
-
Excelでのコメント表示位置
-
対象セル内(複数)が埋まった...
-
【Excel】 セルの色での判断は...
-
エクセル オートフィルタで絞...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
Excel 例A(1+9) のように番地の...
-
エクセルのセルの枠を超えて文...
-
エクセル 足して割る
-
excelの特定のセルの隣のセル指...
-
エクセルの一つのセルに複数の...
-
Excel for Mac使用中ポインタが...
-
エクセルで住所と建物名を分け...
-
EXCEL VBA セルに既に入...
おすすめ情報