显示2010年至2015年msgbox中的所有号码

Question

如何显示from-to的所有数字。例如，一个值是2010年另一个2015年，我想在msgbox中显示：2010 2011 2012 2013 2014 2015。

由于

Answer 1

这应该可以解决问题：

Option Explicit

Sub tmpSO()

Dim lngNumber As Long
Dim txtMessage As String

For lngNumber = 2010 To 2015
    txtMessage = txtMessage & lngNumber & Chr(10)
Next lngNumber

MsgBox txtMessage

End Sub