[發問] 計算儲存格有資料的部分除以2複製到右邊(感謝r 大大再次細心的解答)(5/2更新)

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-4-11 14:16 | 只看該作者

回復 1# av8d

活動廣告:
1.發問者請上傳EXCEL壓縮檔(小學生也可以)
2.配合EXCEL檔請把功能說明清楚

M2=IF(OR(D2="",ROW()>ROUNDUP((COUNTA($G:$G)-1)/2,0)+1),"",OFFSET($D$2,ROW()-2,COLUMN()-13))
Q2=IF(OR(OFFSET($D$2,ROW()-2+ROUNDUP((COUNTA($G:$G)-1)/2,0),COLUMN()-17)="",ROW()>ROUNDUP((COUNTA($G:$G)-1)/2,0)+1),"",OFFSET($D$2,ROW()-2+ROUNDUP((COUNTA($G:$G)-1)/2,0),COLUMN()-17))

av8d

帖子: 705
主題: 277
精華: 0
積分: 1008
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-12-24

3^#

發表於 2012-4-12 12:55 | 只看該作者

回復 2# register313

謝謝大大~簡單來說就是ABC欄各有100列資料~因為Excel沒有像Word一樣有分欄的功能~

希望把ABC欄的51~100列分到DEF欄~讓列印資料時避免浪費紙張!

如需要Excel我整理一下~上傳給您!

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-4-12 13:08 | 只看該作者

回復 3# av8d

1. 2# 的2個公式即是答案,請依實際儲存格之分佈情形去修正公式

av8d

帖子: 705
主題: 277
精華: 0
積分: 1008
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-12-24

5^#

發表於 2012-4-16 15:24 | 只看該作者

回復 4# register313

非常感謝大大的幫忙~有個進階版的問題~不知道是否可請大大再幫忙? 謝謝!

ask.rar (37.74 KB)

附件中
工作區-->一般只使用到編號/姓名/地址，其餘都是函數輔助用途。
列印設定-->當每欄？列下方輸入35(此描述代表著列印區的每欄資料有35筆)(1~36=35筆)
-->當共分？欄下方輸入3(此描述代表著列印區共分成3欄)
列印區-->完成後的結果

不知道是否有辦法做出這樣的對照功能?

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

6^#

發表於 2012-4-16 17:54 | 只看該作者

回復 5# av8d

Sub printx()
LR = Sheets("工作區").[A65536].End(xlUp).Row - 1
R = Sheets("列印設定").[A2]
C = Sheets("列印設定").[B2]
N = Application.RoundUp(LR / R, 0)
Sheets("列印").Cells = ""
CX = 0
With Sheets("工作區")
For NX = 1 To N
RX = Application.RoundUp(NX / C, 0) - 1
If CX = C Then CX = 0
.[A1:C1].Copy Sheets("列印").[A1].Offset((R + 1) * RX, 3 * CX)
.[A2].Resize(R, 3).Offset(R * (NX - 1), 0).Copy
Sheets("列印").[A2].Offset((R + 1) * RX, 3 * CX).PasteSpecial Paste:=xlPasteValues
CX = CX + 1
Next NX
End With
End Sub

複製代碼

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

7^#

發表於 2012-4-16 23:26 | 只看該作者

本帖最後由 register313 於 2012-4-16 23:39 編輯

回復 5# av8d

"列印"工作表之
A2=IF(ROUNDUP(COLUMN()/3,0)>列印設定!$B$2,"",OFFSET(工作區!$A$2,MOD(ROW()-2,列印設定!$A$2)+(ROUNDUP(COLUMN()/3,0)-1)*列印設定!$A$2+(ROUNDUP((ROW()-1)/列印設定!$A$2,0)-1)*列印設定!$A$2*列印設定!$B$2,MOD(COLUMN()-1,3),,))
向右複製,向下複製

av8d

帖子: 705
主題: 277
精華: 0
積分: 1008
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-12-24

8^#

發表於 2012-4-19 09:36 | 只看該作者

回復 7# register313

兩個方法都OK~大大您實在太強了~函數和VBA都熟~讓小的相當佩服!! 給你一個讚!!

av8d

帖子: 705
主題: 277
精華: 0
積分: 1008
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-12-24

9^#

發表於 2012-5-1 16:45 | 只看該作者

回復 2# register313

ask.rar (265.68 KB)
大大~請問要如何完成1-1~4-2的函數呢?可能是我公式還沒完全摸清楚!

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

10^#

發表於 2012-5-1 18:50 | 只看該作者

回復 9# av8d

你附件裡的公式沒錯
但所顯示之答案為何不對

關鍵在於
COUNTA($H:$H) H欄有公式199個,造成計數個數為199 (錯誤)
若改為COUNTA($C:$C) C欄有值7個,計數個數為7 (正確)

=>2個公式裡的COUNTA($H:$H)全改為COUNTA($C:$C),即可正確顯示