谁能帮我美化下代码

hanyu286613818

1. Sub 取值()
   
2. Dim x As Integer
   
3. Dim imsg As String
   
4. For x = 5 To 500
   
5. If IsDate(Cells(x, 13)) = True Then
   
6. If Month(Cells(x, 13)) = Month(Now()) Then
   
7. imsg = imsg & Cells(x, 4) & Space(5) & Cells(x, 9) & Space(5) & Cells(x, 13) & Space(5)
   
8. imsg = imsg & Chr(10)
   
9. End If
   
10. End If
    
11. Next x
    
12. MsgBox "本月生日的有" & Chr(10) & imsg
    
13. End Sub
    

复制代码

效果如图，我想要的是MSGBOX显示的没一列对齐，最后地方再统计总数 共多少人

1032446692

有个附件会更好