[發問] (已解決)浮動區域的作業

freeffly

我想要問一下如附加檔那樣我的sum那各部份要怎麼設?
因為每各月整理出來的區域都不一樣
所以沒辦法固定區間
原本想到下面的方式
可是不可行
n 雖然是對的
可能我還缺哪各部份
請大大幫我看一下
謝謝


Sub Macro1()
'
' Macro1 Macro
' User 在 2011/3/2 錄製的巨集
'
    Dim 範圍 As Range, n As Integer
    Set 範圍 = Range("A" & Range("A65536").End(xlUp).Row)
    i = 範圍.CurrentRegion.Rows.Count - 1
    n = i * -1
     Range("H" & Range("A65536").End(xlUp).Row + 1) = "=sum(R[-1]C:R[n]C)"   
End Sub

Hsieh

回復 1# freeffly

看起來應該是對I/O欄位做分組小計

GBKEE

回復 1# freeffly

1. Sub EX()
   
2.     Dim R As Range, i As Integer
   
3.     For Each R In Sheet3.Range("G5:G" & Rows.Count).SpecialCells(xlCellTypeConstants).Areas
   
4.         R.Cells(R.Count + 1, 1) = "小計"
   
5.         For i = 2 To 4
   
6.              R.Cells(R.Count + 1, i) = "=sum(" & R.Offset(, i - 1).Address & ")"
   
7.         Next
   
8.     Next
   
9. End Sub

複製代碼

freeffly

我只想對下面那塊區域做小計的動作
不過這各方法也是我想知道的
謝謝

如果只想對最下面的區域做小計動作
要做哪一各修改呢?

oobird

mrow = [g:g].Find("o", , , 1).Row
[g65536].End(3)(2).Resize(, 4) = Array("小計", "=sum(r" & mrow & "c:r[-1]c)", "=sum(r" & mrow & "c:r[-1]c)", "=rc[-2]/rc[-1]")

freeffly

回復 3# GBKEE


    Range("G5:G" & Rows.Count) 可以用Columns("G:G")取代嗎 這兩各方式有哪裡不同嗎?
    sum(" & R.Offset(, i - 1).Address & ")這種用法我不會耶可以解說一下嗎

freeffly

回復 5# oobird
我的資料基本上是計算"o"
但是第一塊區域也有可能含有"o"的部份(不列入計算的部份)
所以我原本想的方式是從第二塊區域去計算 並且計算第二塊區域的列數
不過還是從各位大大的方式看到自己沒用過的方式
可以問一下End(3)(2).Resize(, 4) 這各是什麼意思嗎?

GBKEE

回復  GBKEE
Range("G5:G" & Rows.Count) 可以用Columns("G:G")取代嗎 這兩各方式有哪裡不同嗎?
...
freeffly 發表於 2011/3/3 12:17

是可以用Columns("G:G")來取代的,但如g1:g3有數字 會失掉準確性
End(3)(2).Resize(, 4)=>.End(xlUp).Cells(2, 1).Resize(1, 4)

Hsieh

區塊既以空白列區隔
r = [A65536].End(xlUp).End(xlUp).Row
[A65536].End(xlUp).Offset(1, 6).Resize(, 4) = Array("小計", "=SUM(R" & r & "C:R[-1]C)", "=SUM(R" & r & "C:R[-1]C)", "=RC[-2]/RC[-1]")

freeffly

回復 9# Hsieh


    是的我要計算的區塊已經用空白列區隔
     所以是大大的簡單方式
     不過再這裡看到很多不一樣的處理方式
     真是還有的學
     謝謝喔