合并数字和字母，显示成X的N次方那样的格式

river4403

求助各位大神，


附件的数据合并，有一列是百分比数据，有一列是有字母ABC的。

能否用宏VBA合并两列，并且有字母的能否显示成如下图的格式呢？






感谢感谢!

shiruiqiang

先合并，再把右侧的字母上标

shiruiqiang

Dim rng As Range
For Each rng In Range("c3:c22")
    If Len(rng.Offset(0, 1)) Then
    rng = Format(rng, "0%") & rng.Offset(0, 1)
    rng.Characters(Start:=Len(rng) - Len(rng.Offset(0, 1)) + 1, Length:=(Len(rng.Offset(0, 1)))).Font.Superscript = True
    End If
Next

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.28
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 8)
   
4.     ReDim brr(1 To UBound(arr), 1 To 5)
   
5.     On Error Resume Next
   
6.     For i = 3 To UBound(arr)
   
7.         m = m + 1
   
8.         brr(m, 1) = arr(i, 1)
   
9.         brr(m, 2) = arr(i, 2)
   
10.         n = 2
    
11.         For j = 3 To UBound(arr, 2) Step 2
    
12.             n = n + 1
    
13.             If arr(i, j + 1) <> Empty Then
    
14.                 brr(m, n) = Format(arr(i, j), "0%") & arr(i, j + 1)
    
15.             Else
    
16.                 brr(m, n) = Format(arr(i, j), "0%")
    
17.             End If
    
18.         Next
    
19.     Next
    
20.     [k3].Resize(m, n) = brr
    
21.     For i = 3 To r
    
22.         For j = 13 To 15
    
23.             Set Rng = Cells(i, j)
    
24.             If Len(Cells(i, j)) > InStr(Cells(i, j), "%") Then
    
25.                 Rng.Characters(InStr(Rng.Value, "%") + 1, InStr(Rng.Value, "%")).Font.Superscript = True
    
26.             End If
    
27.         Next
    
28.     Next
    
29. End Sub
    

复制代码