返回列表 上一主題 發帖

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

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-11 10:07 | 只看該作者

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

本帖最後由 av8d 於 2012-5-2 08:29 編輯

姓名1.2.3.4~姓名2.4會同長~希望可以計算姓名2或4的資料長度除以2~貼到姓名5.6.7.




                                                                  原始圖


以G2:G20來判斷~一共有19格~19/2=9餘1~有餘數無條件+1~所以左邊留10列~其餘9列移動到右邊




                                                                  完成圖
不知道是否有這個功能，由於姓名1.2.3.4的資料內都有函數，所以如果是剪下貼上必須是貼上值。
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
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))

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
3#
發表於 2012-4-12 12:55 | 只看該作者
回復 2# register313


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

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

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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
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個公式即是答案,請依實際儲存格之分佈情形去修正公式

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
5#
發表於 2012-4-16 15:24 | 只看該作者
回復 4# register313


    非常感謝大大的幫忙~有個進階版的問題~不知道是否可請大大再幫忙? 謝謝!
ask.rar (37.74 KB)

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

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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
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
  1. Sub printx()
  2. LR = Sheets("工作區").[A65536].End(xlUp).Row - 1
  3. R = Sheets("列印設定").[A2]
  4. C = Sheets("列印設定").[B2]
  5. N = Application.RoundUp(LR / R, 0)
  6. Sheets("列印").Cells = ""
  7. CX = 0
  8. With Sheets("工作區")
  9.   For NX = 1 To N
  10.     RX = Application.RoundUp(NX / C, 0) - 1
  11.     If CX = C Then CX = 0
  12.     .[A1:C1].Copy Sheets("列印").[A1].Offset((R + 1) * RX, 3 * CX)
  13.     .[A2].Resize(R, 3).Offset(R * (NX - 1), 0).Copy
  14.     Sheets("列印").[A2].Offset((R + 1) * RX, 3 * CX).PasteSpecial Paste:=xlPasteValues
  15.     CX = CX + 1
  16.   Next NX
  17. End With
  18. End Sub
複製代碼

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
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),,))
向右複製,向下複製

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
8#
發表於 2012-4-19 09:36 | 只看該作者
回復 7# register313


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

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
9#
發表於 2012-5-1 16:45 | 只看該作者
回復 2# register313


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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
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),即可正確顯示

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題