自動(dòng)按列分組拆分excel工作表-文庫(kù)吧
2025-06-16 00:51 本頁(yè)面
【正文】 iant Dim myArray Dim titleRange As Range Dim title As String Dim ShName As String Dim columnNum As Integer myRange = (prompt:=請(qǐng)選擇標(biāo)題行：, Type:=8) myArray = (myRange) Set titleRange = (prompt:=請(qǐng)選擇拆分的表頭，必須是第一行，且為一個(gè)單元格，如：姓名, Type:=8) title = columnNum = ShName = = False = False Dim iamp。, Myramp。, Arr, numamp。 Dim d, k For i = To 1 Step 1 If Sheets(i).Name ShName Then Sheets(i).Delete
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1