返回列表下一主題上一主題發帖

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

kan109

中學生 Rank: 2

帖子: 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~ 學好他吧

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

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

kan109

中學生 Rank: 2

帖子: 64
主題: 18
精華: 0
積分: 98
點名: 0
作業系統: Mac
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-6-12
最後登錄: 2023-12-17

4^#

發表於 2017-5-26 10:36 | 只看該作者

請問有沒有方法可以處理超過10000的資料

excel~ 學好他吧

TOP

kan109

中學生 Rank: 2

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

hcm19522