
EXCEL排序后表格中如何將一列中不同名字之間加多個空行
少的話,在行號那里,點擊鼠標右鍵,選插入。就會在前面插入一行。重復幾次。
多的話用vba編程吧。
創建一個宏。把這段代碼拷貝進去,把,“D”,改成你要判斷重復的那個列字母,然后運行就行了。
Fori=ActiveSheet.UsedRange.Cells.Rows.CountTo2Step-1
IfLen(Trim(ActiveSheet.Cells(i,"D").Value))=0Then
Else
IfTrim(ActiveSheet.Cells(i-1,"D").Value)Trim(ActiveSheet.Cells(i,"D").Value)Then
Rows(i).Insert
EndIf
EndIf
Next
excel單元格中的每一個字占一行
用VBA設計一個命令按鈕,輸入以下代碼:
PrivateSubCommandButton1_Click()
Range("C:D").ClearContents
k=1
ForEachragInRange("A:A")
Ifrag.Value=""ThenExitFor
Forj=1ToLen(Trim(rag.Offset(,1)))
Range("C"&k)=rag.Value
Range("D"&k)=Mid(Trim(rag.Offset(,1).Value),j,1)
k=k+1
Nextj
Next
EndSub
以上就是如何在EXCEL中對排序后的表格進行操作,將不同名字之間加入多個空行的詳細內容,!

