EXCEL宏 怎么使列固定不变 行数固定增大28?

AI

Sub mAIn() Dim strLen1 As Integer, strLen2 As Integer, r As Integer, i As Integer r = Range(j6556).End(xlUp).Row + 1 For i = 7 To r Step 28 Range(b & i) = Range(j & i - 6) & Range(j & i - 2) & Range(j & i - 1) strLen1 = Len(Range(j & i - 6)): strLen2 = Len(Range(j & i - 2)) Range(b & i).Characters(Start:=strLen1 + 1, Length:=strLen2).Font.Underline = xlUnderlineStyleSingle NextEnd Sub