Ｐａｇｅ 511 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼各列の集計 あき 02/12/30(月) 10:08 ┣Re:各列の集計 つん 02/12/30(月) 14:46 ┃ ┣もっとベタです・・・^^; こう 02/12/30(月) 15:08 ┃ ┗Re:各列の集計 あき 03/1/7(火) 18:56 ┗Re:各列の集計 Ｊカーター 02/12/30(月) 16:50 ─────────────────────────────────────── ■題名 ： 各列の集計 ■名前 ： あき ■日付 ： 02/12/30(月) 10:08 -------------------------------------------------------------------------
| 今回初めて質問をさせて頂きます。 質問は、列Ｎ以降の列の合計を求めて求めた合計を別シートに貼り付ける作業です。 例 / 列Ｎ 列Ｏ 列Ｐ ・・・・ 列ＡＷ / 行1 1000 / 2 2000 / 3 3000 / 4 4000 / 5 5000 / . 6000 / . 7000 / . 8000 / 116 9000 （行数は増減あり） 求めた合計を別のシートへ貼り付ける作業です。 |
| こんにちは なんだかベタなやりかたですが、こんな感じでどうでしょう？ Sheet1にデータがあるとして、Sheet2の「A1」から列方向に転記しています。 Sub test() Dim shtA As Worksheet Dim shtB As Worksheet Dim i As Long Dim lngRow As Long Set shtA = Worksheets("Sheet1") Set shtB = Worksheets("Sheet2") For i = 14 To 49 lngRow = shtA.Cells(65536, i).End(xlUp).Row shtB.Cells(1, i - 13).Value = Application.WorksheetFunction.Sum(Range(shtA.Cells(1, i), shtA.Cells(lngRow, i))) Next i Set shtA = Nothing Set shtB = Nothing End Sub |
| あきさん、こんにちわ。 つんさん、お久しぶりです。 >なんだかベタなやりかたですが、こんな感じでどうでしょう？ >Sheet1にデータがあるとして、Sheet2の「A1」から列方向に転記しています。 #もっとベタ?な方法です。^^; マクロを使わずにセル関数で行うなら、sheet2の任意なセルに =SUM(Sheet1!N1:N65536) です。 #反則? |
| つんさん、こうさん、Ｊカーターさん、皆さんどうもご親切に回答を頂きまして、 本当にありがとうございました。 私も質問をする立場ではなく回答が出来る様に勉強します。 本当にありがとうございました。 |
| 数式をマクロで埋め込みます。 Sub test() Sheets("sheet2").Range("a1").Resize(, 36).Formula = "=SUM(Sheet1!N:N)" End Sub 36は列数です 間違っていたらごめんなさい。 |