Excel VBA質問箱 IV

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

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


6970 / 13646 ツリー ←次へ | 前へ→

【42057】セルの結合について 那須 06/8/30(水) 17:41 質問[未読]
【42060】Re:セルの結合について りん 06/8/30(水) 18:57 回答[未読]

【42057】セルの結合について
質問  那須  - 06/8/30(水) 17:41 -

引用なし
パスワード
   セルの結合について教えて下さい

A1に会社名    A2 に性別男   A3に性別女があります

佐藤商店       2        3
田中商店       1        3

そこで計を出す時に A2とA3が結合して男女の計を出したい。
計を出す行数は、明細の会社件数によってかわるので一定ではありません。
一応マクロを使ってやる方法をしりたいと思ってます
お願いします
          

【42060】Re:セルの結合について
回答  りん E-MAIL  - 06/8/30(水) 18:57 -

引用なし
パスワード
   那須 さん、こんばんわ。
>セルの結合について教えて下さい
>例
>A1に会社名    A2 に性別男   A3に性別女があります
>
>佐藤商店       2        3
>田中商店       1        3

セルを結合して、そこに合計を出したいということでいいのでしょうか?

Sub test()
  Dim dt As Variant, Rmax As Long, RR As Long
  Rmax = Range("A65536").End(xlUp).Row
  For RR = 2 To Rmax&
   Cells(RR, 2).Value = Cells(RR, 2).Value + Cells(RR, 3).Value
   Cells(RR, 3).ClearContents '結合時アラート防止のため
   Range(Cells(RR, 2), Cells(RR, 3)).Merge '結合
  Next
End Sub

こんな感じです。
合計を別欄にだすなら、違う式になります。

6970 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free