Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1822 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【71713】セル結合 SATO 12/4/1(日) 9:41 質問[未読]
【71714】Re:セル結合 kanabun 12/4/1(日) 10:30 発言[未読]
【71715】Re:セル結合 SATO 12/4/1(日) 11:56 お礼[未読]
【71713】セル結合
質問  SATO  - 12/4/1(日) 9:41 -
引用なし
パスワード
   お世話になります。
VBAでセルの結合

EXCEL2003使っています、VBAでセルの結合を行いたい、先頭行A5,B5,C5の３列、４行置きに3000行までセルの結合を行いたい、

※A5:A8までを１つの結合ｾﾙに、B5:B8までを1つの結合ｾﾙに、C5:C8までを1つの結合ｾﾙに,3000行まで、ﾃﾞｰﾀがすでに一部入ってる為VBAでのセルの結合を行いたい
【71714】Re:セル結合
発言  kanabun  - 12/4/1(日) 10:30 -
引用なし
パスワード
   ▼SATO さん：

>※A5:A8までを１つの結合ｾﾙに、B5:B8までを1つの結合ｾﾙに、
> C5:C8までを1つの結合ｾﾙに,3000行まで、
> ﾃﾞｰﾀがすでに一部入ってる為VBAでのセルの結合を行いたい
(参考です。もっといい方法があるかもです)
Sub try1()
　Dim i As Long
　Dim c As Range
　
　Application.ScreenUpdating = False
　Application.DisplayAlerts = False
　For i = 5 To 3000 Step 4
　　　For Each c In Cells(i, 1).Resize(4, 3).Columns
　　　　　c.Merge
　　　Next
　Next
　Application.DisplayAlerts = True
　Application.ScreenUpdating = True
　　　
End Sub
【71715】Re:セル結合
お礼  SATO  - 12/4/1(日) 11:56 -
引用なし
パスワード
   ありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1822 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free