汉字和字母长度固定不? 用VBA,Asc函数判断,可以实现 Sub q()Dim i As LongDim b As IntegerDim A As StringDim C As StringDim D As StringDim E As StringDim F As StringDim G As StringDim xWorksheets("Sheet1").Cells(1, 2).Value = ""Worksheets("Sheet1").Cells(1, 3).Value = ""Worksheets("Sheet1").Cells(1, 4).Value = ""A = Worksh