robrr6chalvin的部落格

EXCEL VBA．數字的〔尾數〕計次，及〔尾數２～６組合〕列表計次(改)

　　　　　　　　　　　　　　　　　　　　　　　　　＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
■更改需求：
　當表格〔欄．列〕有變動時，如何修改程式碼？
　
■修改１：
　y = [B65536].End(xlUp).Row - 3 　改為　4（即標題以上的列數）
 　
■修改２：
　With [L4:U4].Resize(y)　改為　[L5:U5]（即每一區塊的第１列）
　　　.Rows("2:6000").ClearContents
　　　.Rows(1).Copy .Cells
　　　With .Offset(1, 0): .Value = .Value: End With
　End With
　
　＿＿第２．３區也同樣位置修改
　
■修改３：
　For Each xR In [AH3:DV3 ]　改為　[AH4:DV4]
    　　If xR <> "小計" Then GoTo 指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯
　　　Ym = xR.Cells(6000, 0).End(xlUp).Row - 3 　改為 　4 
　　　～～其他不動～～
　指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯: Next
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜範例檔＞下載：
檔案名稱：20131206a01(2~6個尾數的各項統計).rar
下載位址：http://www.funp.net/537903
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－