2つのセルを垂直方向にマージし、最後の行までループを作成します。

現在、2つのセルを垂直に結合するループを実行するのに苦労しています。画像では、私が話していることを見ることができます。私はC1とC2をマージし、次にC3とC4をマージする必要があります。2つのセルを垂直方向にマージし、最後の行までループを作成します。

誰かが私を助けることができますか？私はちょうどおかげアンディ

Click here to see the screenshot

出典

2017-02-16 Andy Weinzierl

Pそれがうまくいかなかったとしても、あなたの試みを投稿してください。 –

私はそれをしていただろうが、それをどうするかわからなかった。 –

を使用し...何かのように、

Dim lastR as Integer 

'get the last used row in col C 
lastR = Sheets("Sheet1").Cells(Rows.Count, 3).End(xlUp).Row 

For i = 1 to lastR step 2 
    Range(Cells(i, 3), Cells(i + 1, 3)).Merge 
Next i

の間にあるすべての空の列を有するループを作成する方法が分かりません10はどれくらい下りたいのですか？私は開始行、3は3列目です。

出典

2017-02-16 20:33:50

うわー、「ステップ」はこれまで聞いたことがない素晴らしい動きだ。ありがとう、完璧に動作します！ 10の代わりに最後の行を見つける機会はありますか？最後の内容が発生した後に2つの空きがどこにあるのかを、何とか言い換えることができなければなりません...または間違っていますか？ –

は、1を追加し、最後のセルを見つける方法はこちらをご覧@AndyWeinzierl：http://stackoverflow.com/questions/11169445/error-in-finding-last-used-cell-in-vba –

ちょうどExcelは最後見つける」グーグル行VBA 'あなたに答えを与えるが、私は関係なく質問を編集しました。 –

2つのセルを垂直方向にマージし、最後の行までループを作成します。

答えて

関連する問題