摘要：Public Sub MergeSameItem(ByVal Rng As Range, Optional KeyColumnNo = 1, Optional MergeColumnNo = 1) '*Rng 参数出入一个Range区域，注意该区域必须是已经按key先排好序的 '*KeyColumnNo 参数表示关键字在Rn... 阅读全文

摘要：Public Sub SmartIndenterProcedure() Dim StartLine As Long, EndLine As Long Dim LineIndex As Long Dim StartCol As Long, EndCol As Long Dim LineText As String Dim ProcName As S... 阅读全文