- Sub 转换()
- Dim ar, re
- Dim Rnum As Integer, i As Integer, R As Integer, C As Integer
- Rnum = Sheets(1).[a3].End(xlDown).Row
- ar = Sheets(1).Range("A3:Q" & Rnum)
- ReDim re(1 To 7, 1 To UBound(ar) * 2)
- For i = 1 To UBound(re, 2)
- R = Int((i - 1) / 2) + 1
- If i Mod 2 = 0 Then
- C = 8
- re(2, i) = "B组"
- Else
- C = 0
- re(2, i) = "A组"
- End If
- re(1, i) = ar(R, 1)
- re(3, i) = ar(R, 2 + C) & "(0)"
- re(4, i) = ar(R, 3 + C) & "±" & Format(ar(R, 4 + C), "0.00")
- re(5, i) = ar(R, 5 + C)
- re(6, i) = ar(R, 6 + C) & "," & ar(R, 7 + C)
- re(7, i) = "'" & ar(R, 8 + C) & "," & ar(R, 9 + C)
- Next i
- Sheets(2).[B1].Resize(UBound(re), UBound(re, 2)) = re
- End Sub
复制代码 |