Excel VBA質問箱 IV

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

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


7007 / 76735 ←次へ | 前へ→

【75322】各列の最終行の数値の合計
質問  Kioyu  - 14/2/12(水) 13:41 -

引用なし
パスワード
   列ごとに数字を入れたセルの合計を、最終行に入れたのですが、次にそれぞれの合計を総数として合算しようとしても、SUM関数を利用したコードが作れない。
実力の無さを痛感して投稿しました。ご回答よろしくお願いします。

    あ    い    う    え    お
い    2     6     5     8     23
ろ    3     9     4     2     1
は    3     3     9     1     
に    4     3     3     3     
ほ    4     3         4     
へ    5     3             
と        6             
                    
Sub 領収書総数()
  Dim LastRow As Long
  Dim i As Integer, LastClm As Integer
  Dim SUM As Variant
 
    LastClm = ActiveSheet.Cells(1, 2).End(xlToRight).Column
  For i = 2 To LastClm
    i = ActiveSheet.Cells(1, i).Column
    LastRow = ActiveSheet.Cells(Rows.Count, i).End(xlUp).Row
    
   Range("H1").Value = Application.WorksheetFunction.SUM(Cells(LastRow,    i).Value & Cells(LastRow, LastClm).Value)
 
  Next i
End Sub

0 hits

【75322】各列の最終行の数値の合計 Kioyu 14/2/12(水) 13:41 質問
【75328】Re:各列の最終行の数値の合計 あきな 14/2/12(水) 19:56 発言
【75329】Re:各列の最終行の数値の合計 Kioyu 14/2/12(水) 21:09 発言
【75331】Re:各列の最終行の数値の合計 マナ 14/2/12(水) 22:54 発言
【75332】Re:各列の最終行の数値の合計 あきな 14/2/12(水) 23:38 回答
【75333】Re:各列の最終行の数値の合計 Kioyu 14/2/13(木) 0:26 お礼
【75334】Re:各列の最終行の数値の合計 Kioyu 14/2/13(木) 0:35 お礼

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