国产宅男网站在线|亚洲A级性爱免费视频|亚洲中精品级在线|午夜福利AA毛

  • 

    <dd id="gf5jf"><th id="gf5jf"></th></dd>
    

    <cite id="gf5jf"><label id="gf5jf"></label></cite>
    • <div id="gf5jf"><listing id="gf5jf"></listing></div>
    
	
	
	
    
		
    
				
			
			
			
		
    
		
	
    
	
		
	
    
		
		
		
    			
			
			學(xué)習(xí)啦>學(xué)習(xí)電腦>工具軟件>辦公軟件學(xué)習(xí)>Excel教程>Excel2007教程> 
		
    

		
		
    
			
    
				
				
    
					
    
						
    excel2007如何拆分表格
    
						
    
							
    
								時(shí)間：
								嘉銘873由  分享
								
							
    						
						
    
					
    
					
    

					
					
    
						
    
	　　相信不少朋友都遇到過這樣棘手的問題，把總表中的大量的數(shù)據(jù)拆分成多個(gè)子表。下面讓學(xué)習(xí)啦小編為你帶來excel2007拆分表格的方法。
    
	　　excel2007表格拆分步驟如下：
    
	　　刪除所有分表(只保留名為 "總表"的工作表)
    
	　　For Each sht In Sheets
    
	　　If sht.Name <> "總表" Then sht.Delete
    
	　　Next
    
	　　'加入新表，避免破壞原數(shù)據(jù)中的公式或格式
    
	　　Sheets("總表").Copy Before:=Sheets(1)
    
	　　ICol = Application.InputBox("請(qǐng)輸入你所要拆分的列：(如按D列拆分請(qǐng)輸入4)"， "提示："， "2"， Type:=1)
    
	　　If ICol = "" Then Exit Sub
    
	　　On Error Resume Next
    
	　　With Sheets("總表 (2)")
    
	　　irow = .[a1].CurrentRegion.Rows.Count
    
	　　For i = 2 To irow
    
	　　Cells(i， ICol) = " ' " & Cells(i， ICol) '在原工作表中生成文本符號(hào)
    
	　　Next
    
	　　For i = 2 To irow
    
	　　H.Add .Cells(i， ICol)， CStr(.Cells(i， ICol))
    
	　　Next
    
	　　'建立一個(gè)不重復(fù)的篩選條件
    
	　　For i = 1 To H.Count
    
	　　.Cells.AutoFilter field:=ICol， Criteria1:=H(i)
    
	　　Sheets.Add(after:=Sheets(Sheets.Count)).Name = H(i)
    
	　　.[a1].CurrentRegion.Copy Sheets(CStr(H(i))).[a1] '自動(dòng)篩選，并復(fù)制到新建的表中
    
	　　irow1 = [a1].CurrentRegion.Rows.Count
    
	　　For j = 2 To irow1
    
	　　Cells(j， ICol) = Right(Cells(j， ICol)， Len(Cells(j，
    
	　　file://D:\Program Files\cpcw\PCWReadSys2012\skin\A冬日暖陽\file.htm 2012-2-1
    
	　　《中國計(jì)算機(jī)年鑒 2007》頁碼，2/2
    
	　　ICol))) '消除新工作表中文本符號(hào)
    
	　　Next j
    
	　　.Cells.AutoFilter
    
	　　Debug.Print H(i)
    
	　　Next i
    
	　　.Delete '操作表此時(shí)已多余，故刪除
    
	　　End With
    
	　　A.Parent.Activate '激活匯總表的單元格
    
	　　以后，單擊“拆分總表”按鈕，在彈出的對(duì)話框中輸入分表字段的列號(hào)(例如按D列拆分則輸入“4”)，點(diǎn)擊“確定”按鈕即可。
    
	關(guān)于excel拆分表格的相關(guān)文章推薦：
    
	1.excel2007 拆分一個(gè)工作簿多個(gè)表格的方法
    
	2.excel2007表如何分開顯示
    
	3.Excel2007如何拆分單元格?
    

					
    
					
    
					
					
    
						
      
							
							
      
						
    
					
    
						
					
    
				
				
				
				
				
    
			
    
			
			
    
		
    
	
    
	
	



	
	
	
    	
	
	1514924