excelvba翻譯,excel表如何自動(dòng)按照成績(jī)排名次

Sub制小表()DimdAsObject'聲明變量Dimss$,n%'聲明變量Range(A2:H&[a65536].End(3).Row).DeleteShift:=xlUp'刪除A2至A列最后一個(gè)非空單元格，到h列的區(qū)域，下方單元格上移m=Sheet1.[d65536].End(xlUp).Row'獲取Sheet1d列最后一個(gè)非空單元格行號(hào)arr=Sheet1.Range(d1:h

excelvba翻譯

Sub制小表()

DimdAsObject'聲明變量

Dimss$,n%'聲明變量

Range(A2:H&[a65536].End(3).Row).DeleteShift:=xlUp'刪除A2至A列最后一個(gè)非空單元格，到h列的區(qū)域，下方單元格上移

m=Sheet1.[d65536].End(xlUp).Row'獲取Sheet1d列最后一個(gè)非空單元格行號(hào)

arr=Sheet1.Range(d1:h&m)'將Sheet1d到h列數(shù)據(jù)讀入數(shù)組arr

Setd=CreateObject(scripting.dictionary)'創(chuàng)建字典

ReDimbrr(1ToUBound(arr),1To4)'創(chuàng)建二維數(shù)組brr

Fori=2ToUBound(arr)'這個(gè)循環(huán)的作用是將arr首列相同的數(shù)據(jù)合并后放入brr

ss=arr(i,1)

IfNotd.Exists(ss)Then

n=n+1

d.Addss,n

brr(n,1)=arr(i,1):brr(n,2)=1:brr(n,3)=arr(i,4):brr(n,4)=arr(i,5)

Else

brr(d(ss),2)=brr(d(ss),2)+1

brr(d(ss),3)=brr(d(ss),3)&|&arr(i,4)

brr(d(ss),4)=brr(d(ss),4)&|&arr(i,5)

EndIf

Next

bt=[{序號(hào),,,數(shù)量,碼段,無碼段,碼段不清,戶數(shù)}]'初始化數(shù)組bt

Columns(B:C).NumberFormatLocal=@'設(shè)置bc列為文本格式

d.RemoveAll'清除字典

ReDimcrr(1To(m-1)+n*3,1To8)'創(chuàng)建二維數(shù)組crr

hs=0

Fori=1Ton'這個(gè)循環(huán)為brr里的每行數(shù)據(jù)制一個(gè)表

Forj=1To8'這個(gè)循環(huán)初始化表頭

crr(1+hs,j)=bt(j)

Next

crr(1+hs,2)=brr(i,1)'原表D列放到表頭第2列

p1=Split(brr(i,3),|)'拆分

p2=Split(brr(i,4),|)'拆分

Forj=1Tobrr(i,2)'這個(gè)循環(huán)將brr合并的一行數(shù)據(jù)，重新拆分成原來的行數(shù)存入crr

crr(j+1+hs,1)=j'第一列為序號(hào)

crr(j+1+hs,2)=p1(j-1)'第2列為原表G列

crr(j+1+hs,3)=p2(j-1)'第3列為原表H列

ss=Right(crr(j+1+hs,3),6)'取原表H列數(shù)據(jù)右邊6位，沒有“*”且不重復(fù)的在第8列進(jìn)行計(jì)數(shù)

IfInStr(ss,*)=0Then

IfNotd.Exists(ss)Then

d.Addss,

crr(j+1+hs,8)=1

crr(brr(i,2)+2+hs,8)=crr(brr(i,2)+2+hs,8)+1

EndIf

EndIf

IfInStr(crr(j+1+hs,2)&crr(j+1+hs,3),*)=0Then'原表G、H列數(shù)據(jù)，沒有“*”在第5列進(jìn)行計(jì)數(shù)，全是“*”在第6列進(jìn)行計(jì)數(shù)，其余在第7列進(jìn)行計(jì)數(shù)

crr(j+1+hs,5)=1

crr(brr(i,2)+2+hs,5)=crr(brr(i,2)+2+hs,5)+1

Else

IfLen(Replace(crr(j+1+hs,2)&crr(j+1+hs,3),*,))=0Then

crr(j+1+hs,6)=1

crr(brr(i,2)+2+hs,6)=crr(brr(i,2)+2+hs,6)+1

Else

crr(j+1+hs,7)=1

crr(brr(i,2)+2+hs,7)=crr(brr(i,2)+2+hs,7)+1

EndIf

EndIf

crr(j+1+hs,4)=1

crr(brr(i,2)+2+hs,4)=crr(brr(i,2)+2+hs,4)+1

Next

crr(brr(i,2)+2+hs,1)=合計(jì)

crr(brr(i,2)+3+hs,1)=備注：卷煙&crr(brr(i,2)+2+hs,4)&條，碼段&crr(brr(i,2)+2+hs,5)*1&條，無碼段&crr(brr(i,2)+2+hs,6)*1&條，碼段不清&crr(brr(i,2)+2+hs,7)*1&條，涉及戶數(shù)&crr(brr(i,2)+2+hs,8)*1&戶

d.RemoveAll

Cells(1,a).Offset(brr(i,2)+1+hs,0).Resize(1,3).Merge'合并單元格，每表倒數(shù)第二行前三列

Cells(1,a).End(3).Offset(brr(i,2)+2+hs,0).Resize(1,8).Merge'合并單元格，每表最后一行8列

Cells(1,a).End(3).Resize(1,2).Offset(hs,1).Merge'合并單元格，表頭2，3列，另外本行與上一行代碼End(3).多余，有沒有效果一樣，但是加上后影響運(yùn)算速度

hs=hs+brr(i,2)+3'表格總行數(shù)

Next

Cells(1,a).Resize(UBound(crr),8)=crr'將crr數(shù)據(jù)寫入單元格

Range(a1:h&[a65536].End(3).Row).Borders.LineStyle=1'設(shè)置邊框

EndSub

excel表如何自動(dòng)按照成績(jī)排名次

Excel實(shí)現(xiàn)按名次自動(dòng)排序，可使用排序功能實(shí)現(xiàn)。方法步驟如下：

1、打開需要操作的EXCEL表格，選中相關(guān)單元格，點(diǎn)擊開始選項(xiàng)卡中的“排序和篩選”>“降序”。

2、在彈出的對(duì)話框中選擇“擴(kuò)展選定區(qū)域”，然后點(diǎn)擊確定即可。

3、返回EXCEL表格，發(fā)現(xiàn)已實(shí)現(xiàn)按名稱排序

excel求和少1

假設(shè)數(shù)據(jù)區(qū)域在A1：A100b1=sum(if(a1:a100="",-1,1))ctrl+shift+enter三鍵

Excel表格內(nèi)文字格式

Excel表格自適應(yīng)字體只需要兩個(gè)步驟。

第一步選中需要操作的單元格，單擊右鍵選擇設(shè)置單元格格式。第二步，在彈出的菜單中選擇“對(duì)齊”方式中的“縮小字體填充”。

excel表格為什么不能填充序列

wps序列功能不能使用的方法步驟如下

1、需要自行設(shè)置自定義序列，即可填充序列，選中需要設(shè)置序列的單元格。

2、點(diǎn)擊“文件”中的“工具”。

3、在“工具”中選擇“選項(xiàng)”。

4、在彈出的對(duì)話框中選擇“自定義序列”。

5、在“自定義序列”中輸入需要設(shè)置的序列，點(diǎn)擊添加。

6、然后在新單元格中輸入設(shè)置好的序列的第一個(gè)數(shù)字，例如“22”。

7、下拉序列后，點(diǎn)擊單元格右下角的圖標(biāo)，選擇“智能填充”。

8、然后即可將需要填充的序列格式自動(dòng)填充進(jìn)單元格中了

excel中如何設(shè)置刪除線

1、我們依舊以網(wǎng)格線存在時(shí)候?yàn)槔?，全選整個(gè)要取消網(wǎng)格線的表格。右鍵，選擇設(shè)置單元格格式選項(xiàng)。

2、在彈出的工具框中選中白色或在彈出的“設(shè)置單元格格式”中選擇“圖案”，在背景色中，我們選擇白色作為填充色。然后點(diǎn)擊確定。

3、回到excel主頁(yè)面，選中歐式內(nèi)網(wǎng)格線沒有了，這是因?yàn)榘咨采w掉了原來的顏色填充。

4、選擇視圖選項(xiàng)。在左半邊有一個(gè)勾選的網(wǎng)格線選項(xiàng).

5、取消網(wǎng)格線的勾選，整個(gè)頁(yè)面網(wǎng)格線立即消失了。excel的做表區(qū)域立即像作畫時(shí)候的一張白紙。

excel篩選只篩選一半

1、打開excel文檔，依次點(diǎn)擊菜單欄上的“數(shù)據(jù)”——“篩選”。

2、例如我們篩選所有張姓人員，點(diǎn)擊姓名右邊的三角符號(hào)，點(diǎn)擊“文本篩選”，然后單擊“包含”

3、在設(shè)置“包含”后面的文本框里輸入“張”，點(diǎn)擊確定。

4、選中篩選出的數(shù)據(jù)，點(diǎn)擊右鍵選擇"復(fù)制"

5、在新建文檔中，點(diǎn)擊鼠標(biāo)右鍵選擇"粘貼"，篩選的數(shù)據(jù)就提取出來了。

6、篩選的數(shù)據(jù)就粘貼出來了。