Excel VBA 質問スレ Part66

**1000** · 2020/05/10(日) 13:43:45.00

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part65
https://mevius.5ch.net/test/read.cgi/tech/1584430040/

※デフォルト設定

**デフォルトの名無しさん** · 2020/05/30(土) 11:13:20.00

続き
あるいはwin+Vで貯まってるキャプチャを自動的にダウンロード出来れば、と思いました

**デフォルトの名無しさん** · 2020/05/30(土) 11:26:13.81

>>362
https://github.com/mizutuu/imageClipPaste

**デフォルトの名無しさん** · 2020/05/30(土) 11:40:59.92

氏名住所をユーザーフォームで連続入力してリストに登録するじゃん
んで、フォーム上の印刷ボタンを押すと、ワークシート上に用意されてるテンプレ書類に
氏名住所が必要な箇所に順次記入されて印刷される

ていうよくありがちなプログラムあるでしょ

このテンプレ書類に数式を使って氏名住所を別のセルにも転記するようにしておく
例えば、VBAでA1に氏名が記入されるとすると
B1に =A1 って書いておけばB1にも氏名が記入されて印刷される

これも当たり前なんだけど
このB1に入る数式にユーザー定義関数使うと、うまく動かないのな
Application.Calculate　とかもうまくいかなかったわ
うまくいかないってのは計算してくれないってことだけど

**デフォルトの名無しさん** · 2020/05/30(土) 12:46:49.94

>>364
サンキューさん
これなら使えそうです。

**デフォルトの名無しさん** · 2020/05/30(土) 13:37:34.40

同じなんだけどVBAで膨大な演算処理をコード組んでプロシージャ合わせて作っても
おっさんから
「ああ、マクロの記録して作ったやつね」
て言われると少しイラつく
記録じゃつくれねーほど汎用性高くしてんだろうがボケが

**デフォルトの名無しさん** · 2020/05/30(土) 13:50:56.52

vbaごときでイキっててわろた

**デフォルトの名無しさん** · 2020/05/30(土) 14:27:17.60

無知は罪

**デフォルトの名無しさん** · 2020/05/30(土) 14:46:50.67

そこでイラついてるうちはまだまだ

**デフォルトの名無しさん** · 2020/05/30(土) 15:22:49.38

VBAはOLさんでも出来る(正論)

**デフォルトの名無しさん** · 2020/05/30(土) 15:27:58.73

マクロの記録しかできない人、Win32APIを使いこなす人、どっちも「VBAができる人」と言われてしまう

**デフォルトの名無しさん** · 2020/05/30(土) 15:39:22.28

トリッキーなことはやらない方がいい

**デフォルトの名無しさん** · 2020/05/30(土) 15:45:07.44

>>365
個人情報とかちゃんと管理しないと流出した場合責任とれる？

**デフォルトの名無しさん** · 2020/05/30(土) 16:36:13.67

>>365
Application.Calculate じゃなくて、Application.Volatileだぞ
ワークシートの数式の方に、 &REPT("",NOW()) とかでもいいはず

**デフォルトの名無しさん** · 2020/05/30(土) 16:55:50.78

>>367
そんなことでイラつく自分を見直そう

**デフォルトの名無しさん** · 2020/05/30(土) 17:00:12.37

14列目から全てセルの巾15ピクセルで固定されてます。指定したピクセル数に伸ばしたり縮めたりしたいんですがどうしたらいいですか？

privata Function AAA(objTarSht,intPicel)

clmTar=14
do until objTarSht.Cells(1,clmTar)=空

ここ

clmTar=clmTar + 1

loop

**デフォルトの名無しさん** · 2020/05/30(土) 17:25:53.46

>>377
Private Function AAA(objTarSht, intPixel)
　　clmTar = 14
　　Do Until objTarSht.Cells(1, clmTar) = ""
　　　　Columns(clmTar).ColumnWidth = intPixel * 0.118
　　　　clmTar = clmTar + 1
　　Loop

**デフォルトの名無しさん** · 2020/05/30(土) 17:36:07.32

セルのHJ1に式で「=TEXT(EDATE(DE2,(DAY(DE2)>20)+(DT2<>"")),"yyyy""_""m")」をいれて、
最下行までオートフィルをして、HJ列をコピペで値だけにしていますが
vbaのforで作ってみたいので、この部分をVBAにした場合のコードを教えてください

「=TEXT(EDATE(DE2,(DAY(DE2)>20)+(DT2<>"")),"yyyy""_""m")」

**デフォルトの名無しさん** · 2020/05/30(土) 17:41:18.80

いやまず自分で作ってみろよ…

**デフォルトの名無しさん** · 2020/05/30(土) 18:14:09.22

>>359
馬鹿は書かなければいいのに

**379** · 2020/05/30(土) 18:40:42.91

=TEXT(
EDATE(DE2,
(DAY(DE2)>20)+(DT2<>""))
,"yyyy""_""m")
の並び順で

For cnt = 2 To i

Range("HJ1") =

Format( _'「=TEXT(」にあたる部分

**********'「EDATE(DE2,」EDATEにあたる部分

'「(DAY(DE2)>20)+(DT2<>""))」にあたる部分
DateSerial(Range("DE" & cnt) > 20 + (Range("DT" & cnt) <> "")　

,"yyyy""_""m" '「,"yyyy""_""m")」にあたる部分

Next cnt

**デフォルトの名無しさん** · 2020/05/30(土) 18:59:33.29

>>367
それ本当にマクロか?っていう圧倒的なものを作ってみるといい。

**デフォルトの名無しさん** · 2020/05/30(土) 19:06:40.97

>>383
ユーザーフォームのボタンにあてがうと
有り難みが薄れるらしく
最近作るのを断ってるわ

**デフォルトの名無しさん** · 2020/05/30(土) 19:52:23.30

どんだけ人間小さくて承認欲求高いんだよ…

**デフォルトの名無しさん** · 2020/05/30(土) 20:13:00.67

>>367
マクロ記録でできるレベルじゃないから苛ついてんの？できるんなら言われても仕方ないだろ
ソフト屋じゃなけりゃ再利用とか考えるわけないし

**デフォルトの名無しさん** · 2020/05/30(土) 20:39:02.93

>>381

京都のアニメ制作会社に放火とかしそうだなｗ

**デフォルトの名無しさん** · 2020/05/30(土) 21:05:02.60

>>372
逆に「VBAができるわたし」は
ExcelやWordの複雑な機能のことに異常に詳しいと思われてて
難解な作業を仕事で依頼される。
それをVBAで解決できるかできないかにかかわらず。

**デフォルトの名無しさん** · 2020/05/30(土) 21:08:47.70

そういう事を防ぐために能鷹隠爪で

**デフォルトの名無しさん** · 2020/05/30(土) 21:10:58.46

>>364
これはなにで動いているのですか？

**デフォルトの名無しさん** · 2020/05/30(土) 21:14:47.20

>>388
仕事で依頼されたなら、仕事やれよ

**デフォルトの名無しさん** · 2020/05/30(土) 21:45:04.41

>>382

式が何をしようとしているのか不明。
・何でHJ1(１行目)で２行目の値を評価しているの？
・20日以降は次月として捉えているように見えるけどDT列には何が入るの？
　空じゃなければ更に月を進める？

Forの使い方という点にコメント
これだけじゃ cnt がどこまで回ればよいかわからんよね。たとえば、
　i = 30
For cnt 2 To i
とするか、
For cnt 2 To 30
とかすれば、Loopはする。

でも書き込むセルが Range("HJ1") に固定されてるから、これじゃ同じセルに
３０回、延々と上書きするだけになる。

書き込み先を動的に変える場合は、範囲Objectは Range("番地")じゃなくて、
Cells(行番号、列番号)を使うといい。この中でcntを使えば。

EDATE関数にあたるVBA関数はDateAdd
TEXT関数はFormatでOK。

**デフォルトの名無しさん** · 2020/05/30(土) 21:53:02.87

>ExcelやWordの複雑な機能のことに異常に詳しいと思われてて

ありがちな誤解だよな。
プログラムがわかるから細かい機能を知らなくてもどうにか出来るわけで、

**デフォルトの名無しさん** · 2020/05/30(土) 21:53:27.20

Word、Excelの専門家じゃないってのに。

**デフォルトの名無しさん** · 2020/05/30(土) 22:38:43.08

wordの複雑な機能って？

**デフォルトの名無しさん** · 2020/05/30(土) 23:40:16.05

フィールドとか？

**デフォルトの名無しさん** · 2020/05/31(日) 01:07:44.41

WordVBAとか

**デフォルトの名無しさん** · 2020/05/31(日) 01:47:47.46

初歩的ですみませんが、sub ()の（）の中に文字列が入ることありますか？
買った教本の例題にこの中に文字列が書かれてるのが一つだけあるんですが、おそらくそのせいでマクロが動きません

**デフォルトの名無しさん** · 2020/05/31(日) 02:38:20.45

>>398
理解できない奴には無理

**デフォルトの名無しさん** · 2020/05/31(日) 02:39:52.93

>>391
なんでわたしだけ仕事が増えるんだ
この馬鹿モンが！

**デフォルトの名無しさん** · 2020/05/31(日) 02:41:39.96

しかも周りに座ってるような同僚は
わたしより仕事スピードが1/2～1/10の人たちばかりなのに。

**デフォルトの名無しさん** · 2020/05/31(日) 02:50:27.87

>>398
subプロシージャで調べてみ

**デフォルトの名無しさん** · 2020/05/31(日) 02:50:46.87

>>399
理解できるように勉強してるので教えてください
図々しいと思いますが

**デフォルトの名無しさん** · 2020/05/31(日) 02:51:03.70

>>402
調べてみます！

**デフォルトの名無しさん** · 2020/05/31(日) 02:52:54.38

>>401
じゃあ転職しろよw

**デフォルトの名無しさん** · 2020/05/31(日) 02:56:41.46

>>403
この段階でわからないこと自体無理なんだよ
仕組みを理解しなければ無理
公式だけ暗記して終わりの馬鹿には無理なんだよ

**デフォルトの名無しさん** · 2020/05/31(日) 03:25:44.77

>>375
ありがとう
でもだめだったわ

**デフォルトの名無しさん** · 2020/05/31(日) 03:27:49.96

>>403
VBA 引数
　
でぐぐる

**蟻人間** ◆T6xkBnTXz7B0 · 2020/05/31(日) 04:00:28.58

エクセルにはリファレンスマニュアルが付属していて、追加でインストールするとF1ヘルプで言語仕様まで見られる。
マニュアルがパソコンに入ってなかったら、管理者からエクセルのシーディーを借りてね。

**デフォルトの名無しさん** · 2020/05/31(日) 05:00:56.16

>>398
sub() って文法的に作れないはず
マクロが動かないのは文字列のせいじゃないかもよ

**デフォルトの名無しさん** · 2020/05/31(日) 08:40:31.29

ごめんなさい
sub test ()でした

**デフォルトの名無しさん** · 2020/05/31(日) 08:57:53.05

Sub Test0001()
　Dim i As Integer
　
　For i = 1 To 2
　　Dim ary()
　　
　　MsgBox "ここにブレークポイント設定"
　　
　　ary = Sheet1.Range(Cells(1, i), Cells(5, i))
　Next i
End Sub

A列とB列にあるいずれも5行目までの値を配列に取得するだけのプログラム
For中の一回転目はA列、2回転目はB列

こうやってForの中でaryを宣言し直せば、aryは初期化されると思い込んでたんだけどダメなのな
2回目にMsgBoxで止まったときにaryみるとA列のデータがaryに残ってしまってる
これってメモリ上に残ってて同じ所を参照し直すからなのかな
Eraseすれば消えるからいいんだけど、気づくのに時間かかったわ
こんな初歩的なこと分かってないでよく今まで組んできたもんだ

**デフォルトの名無しさん** · 2020/05/31(日) 09:44:52.93

すんません今時ブロックスコープない方がアレなんで

**デフォルトの名無しさん** · 2020/05/31(日) 09:49:53.97

>>398
それはLEFT()が動かないのと同じ理屈。
普通LEFT(A1,5)とか書くから。

**デフォルトの名無しさん** · 2020/05/31(日) 10:44:01.62

>>412
そういう動作を知るためのテストなんじゃね
残っていても上書きされるんだから問題ないし

**デフォルトの名無しさん** · 2020/05/31(日) 10:47:02.74

>>411
sub test("文字列")
ってことか？

**デフォルトの名無しさん** · 2020/05/31(日) 11:53:35.71

>>398
呼び出し元とプロシージャそれぞれ一行ずつ書いてくれよ

**デフォルトの名無しさん** · 2020/05/31(日) 12:34:25.47

>>412
VBAのDimは書いた場所に関係なく、コード開始時に1回だけ実行される仕様
モジュールの最後に書いても結果は変わらない
Sub Test()
　　Dim a()
　　For i = 0 To 9
　　　　Dim b()
　　Next
　　Dim c()
End Sub

**デフォルトの名無しさん** · 2020/05/31(日) 12:42:20.77

>>413
あーなるほど
そこを考えるんですか、勉強になりましたわ
ただ、改めて疑問に思ったのは、同じブロックスコープ内で再度宣言してもエラーでないのはどういうことなんだろーとか
Forの中での宣言だと繰り返しといっても宣言部分は無視されるってことかな
ま、同じ事しないようにちゃんとおぼえておこ・・・

>>415
このプログラムだとそうなんだけど
ary = Sheet1.Range(Cells(1, i), Cells(5, i))
この部分が、ある条件を満たした場合のみ代入するっていうコードだとします
んで、条件満たさなかった場合には代入されないため、A列のデータがaryに残っちゃっておかしな事になっちゃってたわけですよ
自分で実際に組んでるコードはも少し複雑なものなので

**デフォルトの名無しさん** · 2020/05/31(日) 12:44:02.11

>>418
ありがとうございます
全然知らなかったです
ちょい調べてみます

**デフォルトの名無しさん** · 2020/05/31(日) 13:55:17.54

>>401
お前は周りにない知識が多少あることに優越感持ってるだけで仕事できる人間の言い分に見えんのよなぁ

**デフォルトの名無しさん** · 2020/05/31(日) 14:13:51.20

仕事ができる人なら、コードを書くのに何人時かかりますっていう見積もりをざっくりでいいから依頼主にちゃんと提示する
それで依頼を取り下げるかどうかはクライアントの決めること
想定外のトラブルで納期が遅れそうならホウ・レン・ソウして迷惑をかけないようにする

難しいからって愚痴るのはまったく建設的じゃないし、なんの解決にもならない

**デフォルトの名無しさん** · 2020/05/31(日) 15:00:37.19

なんでそんなにかかるの？
どこに時間かかる要素があるの？
やればいいだけでしょ？
○○さんはもっと早かったよ？
次の仕事があるんならそれでいいよ？

**デフォルトの名無しさん** · 2020/05/31(日) 15:05:53.60

報連相つらいよね…プログラムの難しさよりも報連相の方がつらい…

**デフォルトの名無しさん** · 2020/05/31(日) 16:55:11.56

すみませんド素人ですがご教授下さい。

「あるセルを選択して実行すると選択したセル行のA～D列以外が全て1.1倍される」
というマクロを組みたいです。
ネットで調べて少し作ろうとしてみましたが
知識がありません。

Sub 倍掛け()
Dim SELU As Range '変数名の絶望的センス名
For Each SELU In Selection
SELU.Value = SELU.Value * 1.1
Next SELU
End Sub

Sub 選択したセルの行全選択()
ActiveCell.EntireRow.Select
End Sub

この2つのプロシージャが何となく使えるのかすらわからないのですが試行錯誤しています。
A～D列を除外というやり方もわかりません。

すみませんが教えていただけないでしょうか。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/05/31(日) 17:39:48.04

>>425
Excel for Windows 95で動作確認。

Sub Record1()
Application.Worksheets(1).Select
For I = 5 To 20
For J = 1 To 20
Cells(J, I).Select
ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) * 1.1
Next J
Next
End Sub

**蟻人間** ◆T6xkBnTXz7B0 · 2020/05/31(日) 17:50:31.21

>>426 「To 20」のところは適当に変更してね。

**デフォルトの名無しさん** · 2020/05/31(日) 18:34:56.03

>>425
選択した範囲が処理の起点なので、、

　　Dim r As Range
　　For Each r In Selection
　　　　If r.colunm < 5 Then GoTo nextLoop
　　　　If r.Value = "" Then GoTo nextLoop

　　　　r.Value = r.Value * 1.1
nextLoop:
　　Next

こんな感じ？
行全体を対象にしたいみたいだけど、その時はFor文の前に

　　Selection.EntireRow.Select

を差し込めばいい。
１万列処理されるけど、、、

**デフォルトの名無しさん** · 2020/05/31(日) 18:39:34.39

>>428
綴りを間違っとった
　　　　If r.Column < 5 Then GoTo nextLoop

文字列セルを避けたければ、、以下も追加
　　　　If Not IsNumeric(r.Value) Then GoTo nextLoop

**デフォルトの名無しさん** · 2020/05/31(日) 19:13:07.80

>>424
ああつらい。
上司がメール読まないタイプだと特に。

**デフォルトの名無しさん** · 2020/05/31(日) 21:17:59.30

馬鹿に馬鹿が答えて滅茶苦茶
簡単な質問だとしゃしゃり出てくるからおかしくなる

**デフォルトの名無しさん** · 2020/05/31(日) 22:48:28.20

>>416
そうです！！
カッコ内に文字列です！

**デフォルトの名無しさん** · 2020/05/31(日) 22:49:04.73

>>417
呼び出し元…すみません、知識不足でした…

**デフォルトの名無しさん** · 2020/05/31(日) 23:06:33.42

>>433
馬鹿には無理だと悟れよ、馬鹿

**デフォルトの名無しさん** · 2020/06/01(月) 18:21:12.15

お前もだ

**デフォルトの名無しさん** · 2020/06/01(月) 18:38:31.30

異動した先輩が作ったマクロに少し追加しようと思って標準モジュール見てみたら
乱れ雪月花
地ずり残月
かすみ二段
パリィ
何これ？？？と思ったらゲームの技名なのか
見事なプロシージャだけど関連性が全くわからんかった…

**デフォルトの名無しさん** · 2020/06/01(月) 18:48:48.99

Sub 乱れ雪月花
　　風雪即意付け
　　月影の太刀
　　三花仙
End Sub

**デフォルトの名無しさん** · 2020/06/01(月) 19:40:30.70

取り敢えずマジックナンバーだらけのを保守しろとかいうのはやめてー
セル参照も起点ぐらいは定数宣言しといて欲しい

**デフォルトの名無しさん** · 2020/06/01(月) 19:48:00.59

1列目の2行目から下にEXCELファイル名があります。(同一ファイル名あり)
それらを全て開く、処理、閉じるを繰り返すと時間がかかるので、同一ファイル名は一度だけ開いて閉じるをやりたいのですがどしたらいいですか？

1列目をソート
Do until 1列目
　？？？
　　処理

loop

ファイル名は数字(000001.xlsなどで桁数は同じ)
？？？の所で開くor閉じるをやりたいのですがどうしたらいいですか？

**デフォルトの名無しさん** · 2020/06/01(月) 20:00:55.95

パリィは草

**デフォルトの名無しさん** · 2020/06/01(月) 20:10:21.26

>>439
ひとつ上のセルが同じファイル名なら
なにもせず次へ

**デフォルトの名無しさん** · 2020/06/01(月) 20:42:10.79

重複禁止の処理は連想配列（VBAだとDictionaryオブジェクト）を使うと便利だよ。

既に連想配列に存在するなら何もしない、存在しないなら処理して連想配列に登録する。
Valueに結果を入れておいて、実行結果をシートに出力とかするとカッコイイよ。

**デフォルトの名無しさん** · 2020/06/01(月) 21:05:54.37

結果をシートに出すなら配列使わんと重複削除してから開いた方が速くて楽じゃん

**デフォルトの名無しさん** · 2020/06/01(月) 23:34:24.04

まだ22歳の学生社長が得た､23億円の｢使い道｣
あの橋本環奈をCMに使うバイトアプリの雄
https://toyokeizai.net/articles/-/319511
中学時代の車いす生活から、17歳で起業するまで
https://www.advertimes.com/20200130/article306925/
ミャンマー発 AIダイニングアプリ「Yathar」をしかける日本人起業家
https://roboteer-tokyo.com/archives/14840
自分の視野は「世の中の0.001%」と自覚せよ。ビジネスチャンスを掴む4つの習慣
https://headlines.yahoo.co.jp/hl?a=20200511-00010001-srnijugo-life
アプリの視聴率がわかる　高専卒起業家の独創力
https://www.nikkei.com/article/DGXMZO46695580Y9A620C1000000/
１万人の若者を支援！インターンが日本を変えるかも！？　glowshipの若き創業者・足立卓也氏インタビュー
https://sogyotecho.jp/glowship-adachi-interview/
大学生起業家が設立１年で20億円調達！単発バイトアプリに外食企業など出資【タイミー】
https://foodfun.jp/archives/3490

**デフォルトの名無しさん** · 2020/06/02(火) 00:29:20.96

俺ならこうかな。

Sub サンペイグッドカメラ()
　どっきりカメラのキシフォート
　カメラのドイ
End Sub

**デフォルトの名無しさん** · 2020/06/02(火) 00:35:26.89

VBAだしそういう名前面白いかもなw
簡単だけど保守したくないやつは、もう先輩や同僚の連絡先を名前にしようかな

**デフォルトの名無しさん** · 2020/06/02(火) 01:36:20.19

Sub 馬鹿専用()
馬鹿には無理()
馬鹿は帰れ()
End Sub

**デフォルトの名無しさん** · 2020/06/02(火) 02:01:31.67

Sub 鱸()
鰯()
鰹()
鮪()
End Sub

**デフォルトの名無しさん** · 2020/06/02(火) 02:07:31.79

>>439
Ruby なら重複要素を許さない、集合を使って、

require 'set'

filenames = <<"EOT"
a/foo.txt
a/bar.txt
a/foo.txt
EOT

set = Set.new

filenames.each_line do |filename| # 1行ずつ処理する
filename.chomp! # 末尾の改行を削除する

# 同じ要素は追加できないので、追加できた時だけ、そのファイルを読み込む
p File.read( filename ) if set.add?( filename )
end

**デフォルトの名無しさん** · 2020/06/02(火) 02:24:02.46

>>439
[データ]→[重複の削除]　って機能あるけど

**デフォルトの名無しさん** · 2020/06/02(火) 04:12:46.96

>>439
ファイル名がリストアップされてる列があるなら
そこでまず回して重複排除したファイル名の配列 as Stringをつくればいいだけじゃ
てかその程度も思い浮かばないとなるとプログラミング向いてないような気がするわ

重複排除のプログラムって基礎の基礎でやるよ

便利な機能を使う前に順次・分岐・繰り返しでほぼほぼなんでも出来ちゃうことを学んだ方がいいわ
C言語の勉強するとそういうの鍛えられる感じする

**デフォルトの名無しさん** · 2020/06/02(火) 08:37:46.24

>>364
Readme読む限り、ちょっとこれはと思う。
一定間隔はあまり良くないな。
出来ればWM_DRAWCLIPBOARD捕まえるのが常套手段。

**デフォルトの名無しさん** · 2020/06/02(火) 08:39:17.76

>>386
まあ、プログラマ―としては糞コードの見本を強要されるわけだからねえ。

**デフォルトの名無しさん** · 2020/06/02(火) 08:41:06.23

>>398
引数という言葉を調べてみよう。

**デフォルトの名無しさん** · 2020/06/02(火) 09:53:39.10

い・・引数

**デフォルトの名無しさん** · 2020/06/02(火) 10:17:05.52

いんすう、なの？
勝手に、ひきすう、って読んでた。

**デフォルトの名無しさん** · 2020/06/02(火) 10:38:01.33

いんすうだと因数と間違えるから、わざとひきすうと読む慣習

**デフォルトの名無しさん** · 2020/06/02(火) 11:01:38.32

ソヒキスウブンカイとかあったよねー。

**デフォルトの名無しさん** · 2020/06/02(火) 11:28:56.48

淫吸だとエロい言葉に聞こえるからひきすうと読む

**デフォルトの名無しさん** · 2020/06/02(火) 12:59:58.61

Sub セル2行を結合して出力()
Sheets("雛型").Select
ActiveSheet.Copy

Dim gg As Long, rr As Long
For gg = Cells(Rows.Count, "E").End(xlUp).Row To 11 Step -1
Rows(gg + 1).Insert
For rr = 5 To 31
Cells(gg, rr).Resize(2).Merge
Next rr
Next gg
HorizontalAlignment = xlCenter
VerticalAlignment = xlCenter
Range("A1") = "2行を結合して出力"
End Sub

すみません、ネットで調べまくってる相変わらずのど初心者です。
セルの行挿入と結合を範囲指定して
2行を結合するのは何とか調べてできたのですが、
「セルの列挿入と結合を繰り返して
2列1行のセルにしたい」
というのができず。。ご教示頂けませんか。

理想は
「セルを2列挿入と結合をして3列1行のセルにする」や
「2列と2行の挿入と結合繰り返して2列2行のセルにする」
など、色々パターンを作りたいのですが。
ネットと入門編の本だとやはり限界を感じます。。
どなかた何卒お願いします。

**デフォルトの名無しさん** · 2020/06/02(火) 13:09:54.31

.resize(1,2).mergeとか
Range(rows(gg+1)rows(gg+2)).insertとか

**デフォルトの名無しさん** · 2020/06/02(火) 14:39:08.29

セルの結合をマクロでやる設計者ってセンスないね