1.打開需要操作的EXCEL表格,選中需要移動(dòng)的單元格。2.鼠標(biāo)停在單元格邊框上,使之變成帶箭頭方向的“+”符號(hào),點(diǎn)擊鼠標(biāo)左鍵不放上下移動(dòng)鼠標(biāo),可看到出現(xiàn)一個(gè)虛線邊框,松開鼠標(biāo)即可將單元格移動(dòng)到虛線框所在位置。3.返回EXCEL表格,可發(fā)現(xiàn)已成功在EXCEL表格中實(shí)現(xiàn)上下移動(dòng)單元格操作。
1.打開需要操作的EXCEL表格,選中需要移動(dòng)的單元格。
2.鼠標(biāo)停在單元格邊框上,使之變成帶箭頭方向的“+”符號(hào),點(diǎn)擊鼠標(biāo)左鍵不放上下移動(dòng)鼠標(biāo),可看到出現(xiàn)一個(gè)虛線邊框,松開鼠標(biāo)即可將單元格移動(dòng)到虛線框所在位置。
3.返回EXCEL表格,可發(fā)現(xiàn)已成功在EXCEL表格中實(shí)現(xiàn)上下移動(dòng)單元格操作。
F2:=INDEX(Sheet2!$B$2:$AF$5,MATCH($B2,Sheet2!$A$2:$A$5,0),MATCH($A2,Sheet2!$B$1:$AF$1,0))向下拖拉復(fù)制公式,自己根據(jù)實(shí)際數(shù)據(jù)修改引用范圍。
=COUNTIF(A:A,"N*")公式說明:統(tǒng)計(jì)A列中字母N開頭學(xué)號(hào)個(gè)數(shù),當(dāng)然把N變成其它字母就統(tǒng)計(jì)其它字母開頭的學(xué)號(hào)個(gè)數(shù)。
自己根據(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&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文件怎么合并在一個(gè)文件里
1.
成功打開excel表格后,鼠標(biāo)點(diǎn)擊菜單中的開始。
2.
在打開的開始頁(yè)面中,點(diǎn)擊選擇工作表后面的下拉三角。
3.
在打開的工作表下拉選項(xiàng)中,點(diǎn)擊選擇合并表格。
4.
在彈出的合并表格選項(xiàng)中,點(diǎn)擊選擇多個(gè)文檔合并成一個(gè)文檔。
是不是你搜索的數(shù)據(jù)存在空格等隱藏字符,如果存在,肯定搜不到,EXCEL認(rèn)為空格也是一個(gè)字符
1.
打開Excel,點(diǎn)擊“插入”中的“數(shù)據(jù)透視表”選項(xiàng)。
2.
excel表格中的數(shù)據(jù)透視表添加成功后,更改左側(cè)個(gè)別數(shù)據(jù),黃色部分標(biāo)出。
3.
完成第二步之后,第一種是點(diǎn)擊“數(shù)據(jù)”中的“全部刷新”,然后點(diǎn)擊“刷新”選項(xiàng)即可。
4.
完成第二步之后,第二種選中任意單元格,右鍵點(diǎn)擊刷新。
聲明: 本站一切資源均搜集于互聯(lián)網(wǎng)及網(wǎng)友分享,如果侵犯到你的權(quán)益,及時(shí)聯(lián)系我們刪除該資源
本文分類:本地推廣
瀏覽次數(shù):600次瀏覽
發(fā)布日期:2023-06-22 19:50:05