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

av8d

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

下載 (64.29 KB)

2012-4-11 11:14

                                                                  原始圖


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

下載 (66.47 KB)

2012-4-11 11:15

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

register313

回復 1# av8d

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

下載 (170.57 KB)

2012-4-11 14:15

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

回復 2# register313


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

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

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

register313

回復 3# av8d

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

av8d

回復 4# register313


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

下載次數: 10

2012-4-16 15:18

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

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

register313

回復 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

複製代碼

register313

回復 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

回復 7# register313


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

av8d

回復 2# register313


ask.rar (265.68 KB)

下載次數: 4

2012-5-1 16:45

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

register313

回復 9# av8d

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

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

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