Sub aa() With ActiveSheet.Cells .ColumnWidth = 2 .RowHeight = 15 Range("R9:Z9").Select Selection.Value = "老婆我爱你,么么!" End With End Sub追问我要实现一个单元格显示一个字,比如说:R9=老、S9=婆·······Z9=!
追答With ActiveSheet.Cells .ColumnWidth = 2 .RowHeight = 15 i = 1 For Each c In Range("R9:Z9") c.Value = Mid("老婆我爱你,么么!", i, 1) i = i + 1 Next End With