返回列表 上一主題 發帖

[發問] 自動增加列問題2

kan109

帖子
64 
主題
18 
精華
0 
積分
98 
點名
0  
作業系統
Mac 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2010-6-12 
最後登錄
2023-12-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-5-19 02:36 | 只看該作者

[發問] 自動增加列問題2

A,B 欄為文字, C為年份開始,D為年份終結,E為出理年份次數
請問怎樣可以實現如H,I,J 般(可以在另一工作表)
跟據E出現年份次數,自動新增列而H,I 均為A,B文字

如此類推
sample11.zip (6.81 KB)
收藏 分享
excel~ 學好他吧

hcm19522

帖子
1361 
主題
4 
精華
0 
積分
1371 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-4-24 

熱烈參與勳章
2#
發表於 2017-5-19 14:00 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/507097631
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

kan109

帖子
64 
主題
18 
精華
0 
積分
98 
點名
0  
作業系統
Mac 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2010-6-12 
最後登錄
2023-12-17 
3#
發表於 2017-5-20 01:15 | 只看該作者
回復 2# hcm19522
想請問,我的資料裡A-E有13500,是不是直接改($1:$13500)
如下
H2:I13500=OFFSET(A$2,SUMPRODUCT((ROW(A1)>SUBTOTAL(9,OFFSET($E$2,,,ROW($1:$13500))))*1),)&""

J2:J13500=OFFSET(C$2,SUMPRODUCT((ROW(C1)>SUBTOTAL(9,OFFSET($E$2,,,ROW($1:$13500))))*1),)+COUNTIF(H$2:H2,H2)-1&""

試了1000,但 Load 很久
excel~ 學好他吧

TOP

kan109

帖子
64 
主題
18 
精華
0 
積分
98 
點名
0  
作業系統
Mac 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2010-6-12 
最後登錄
2023-12-17 
4#
發表於 2017-5-26 10:36 | 只看該作者
請問有沒有方法可以處理超過10000的資料
excel~ 學好他吧

TOP

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-20 
5#
發表於 2017-5-26 13:51 | 只看該作者
Sub TEST()
Dim R&, Arr, Brr, SS&, N&, i&, j&
[H:J].ClearContents
R = Cells(Rows.Count, 1).End(xlUp).Row
Arr = Range("A1:E" & R)
SS = Application.Sum([E:E])
ReDim Brr(1 To SS, 1 To 3)
For i = 1 To UBound(Arr)
　　For j = Arr(i, 3) To Arr(i, 4)
　　　　N = N + 1
　　　　Brr(N, 1) = Arr(i, 1)
　　　　Brr(N, 2) = Arr(i, 2)
　　　　Brr(N, 3) = j
　　Next j
Next

[H1:J1].Resize(SS) = Brr
End Sub
　
Xl0000010.rar (11.69 KB)
　

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題