[算表] msgbox 顯示多行迴圈問題?

[ptguitar (佩蒂吉他)]

軟體:excel

版本:2007


若是我有弄一個表單

姓名欄位在A2-A10
生日欄位在B2-B10
性別欄位在C2-c10
葷素食在  D2-D10

想要有個按鈕就是可以顯示出msgbox

為  姓名-生日-性別-葷素食
    姓名1-生日1-性別1-葷素食1
    .
    .
    .
    .


但是就是資料有多少顯示多少欄位

例如可能只有到A6有資料

不知道msgbox 跳出的時候要怎麼寫




--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.78
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1524451604.A.021.html
→ soyoso: 巢狀迴圈於列、欄；取得列最後一筆有值的列號range.end().
→ soyoso: row。字串累加連接，變數 & range.offset()，列欄的偏移值
→ soyoso: 以巢狀迴圈的變動值帶入
→ soyoso: 斷行可以chr(10)或vbcrlf；中間分隔符號一樣以&來連接
→ soyoso: 最後以msgbox帶出該字串變數
不知道這樣寫有什麼地方要改 都會傳最後一筆XD

Sub test()
Dim msg As String, i As Integer
i = Range("A100").End(xlUp).Row
For j = 1 To i
msg = Range("A" & j) & "-" & Range("B" & j) & "-" _
      & Range("C" & j) & "-" & Range("D" & j)
msg = msg & vbCrLf
Next j
MsgBox msg
End Sub


※ 編輯: ptguitar (60.250.67.78), 04/23/2018 13:54:57
→ soyoso: 二個msg寫一個就好，msg = msg & vbcrlf & range("a"&j)..
→ soyoso: 寫二個的話，頭一個msg = range("a"&j)...改為msg = msg &
→ soyoso: range("a" &j)...
→ ptguitar: 感謝S大 果然可以