网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：280,648贴子：1,540,971
  • 29回复贴，共1页

EXCEL里怎么将 特定字符 æ 对齐？

A列是源文件-音标 ， B列是手动将其字符 æ 上下竖直对齐。如图所示，B列手动后 应可看出，并不是完全的对齐。请教各位老师，怎样用 公式 或者 VBA 等 方法，将文件 自动对齐。请指教。


=REPT(" ",MAX(FIND("æ",A$1:A$12))-FIND("æ",A1))&A1数组公式


要选英文字符宽度一样的字体试试。


老师非常感谢您 ，特意下字体 去尝试这个问题，还给了我这么长的回复。阅读数遍您的追答，理解了您的思路。您最后给的这个方法 可行，也达到了对齐的效果。
只是我打印出来之后，感觉三列之间间距稍显大了些。
非常感谢您的劳动和热心。如果以后有更好的答案，您一定不要忘了告诉我。 向您的热心致敬。


不错！


Sub 调整()
a = [a65536].End(xlUp).Row
zd = 0
ar = Range("a1:a" & a)
For i = 1 To a
wb = Left(ar(i, 1), InStr(ar(i, 1), "ae") + 1)
[aj1] = wb
Columns("aj:aj").EntireColumn.AutoFit
s = Columns("aj:aj").ColumnWidth
If s > zd Then
zd = s
js = i
End If
Next
ReDim cm(1 To a, 1 To 1)
For i = 1 To a
If Not i = js Then
wb = Left(ar(i, 1), InStr(ar(i, 1), "ae") + 1)
[aj1] = wb
r = ""
For n = 1 To 100
[aj1] = " " & [aj1]
r = " " & r
Columns("aj:aj").EntireColumn.AutoFit
s = Columns("aj:aj").ColumnWidth
If s > zd Then
n = 100
If syc < Val(s - zd) Then
MsgBox Len(r)
cm(i, 1) = Left(r, Len(r) - 1) & ar(i, 1)
Else
cm(i, 1) = r & ar(i, 1)
End If
End If
Next
Else
cm(i, 1) = ar(i, 1)
End If
Next
Range("c1:c" & a) = cm
[aj1] = ""
End Sub

这题应该没有直接实现的方法，但是可以采用曲线救国(利用最佳列宽，所以跟你选什么字体已经没有任何关系了。).实现的效果就是将A列根据尽量ae的位置尽量配到楼主的效果


'借用楼上的方法稍作处理，效果还行。


'代码忘贴了，估计里面还有不少问题，效率极差不过效果还可以接受：
Option Explicit
Sub aa()
　Dim i, j, t, arr, maxcolsize, defaultfontsize, brr
　defaultfontsize = [a1].Font.Size
　arr = Range("a1:b" & [a65536].End(xlUp).Row)
　ReDim brr(1 To UBound(arr, 1), 1 To 2)
　[e:e].ClearContents
　For i = 1 To UBound(arr, 1)
　　t = Split(arr(i, 1), "Q")
　　arr(i, 1) = t(0): arr(i, 2) = t(1)
　Next
　[d1].Resize(UBound(arr, 1), 1) = arr
　[d:d].Columns.AutoFit
　maxcolsize = [d1].Width
　For i = 1 To UBound(arr, 1)
　　Cells(1, 5).Font.Size = defaultfontsize
　　Cells(1, 5) = Cells(i, 4)
　　For j = 1 To 1000
　　　Cells(1, 5) = Space(1) & Cells(1, 5)
　　　[e:e].Columns.AutoFit
　　　t = [e1].Width
　　　If t >= maxcolsize Then Exit For
　　Next
　　brr(i, 1) = j
　　If t > maxcolsize Then
　　　For j = defaultfontsize To 1 Step -0.5
　　　　Cells(1, 5).Characters(1, 1).Font.Size = j
　　　　[e:e].Columns.AutoFit
　　　　t = [e1].Width
　　　　If t <= maxcolsize Then brr(i, 2) = j: Exit For
　　　Next
　　Else
　　　brr(i, 2) = defaultfontsize
　　End If
　　Cells(1, 5).Font.Size = defaultfontsize
　Next
　For i = 1 To UBound(arr, 1)
　　arr(i, 1) = Space(brr(i, 1)) & arr(i, 1) & "Q" & arr(i, 2)
　Next
　[b1].Resize(UBound(arr, 1), 1) = arr
　[b:b].Font.Size = defaultfontsize
　For i = 1 To UBound(arr, 1)
　　Cells(i, 2).Characters(1, 1).Font.Size = brr(i, 2)
　　Cells(i, 2).Characters(InStr(Cells(i, 2), "Q"), 1).Font.Color = vbRed
　Next
End Sub


放到word中，在æ前批量添加跳格符对齐。代码欠奉。


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 29回复贴，共1页
分享到: