Dim ks As Integer= 26
dr("行程特色") = sheet(ks,2).text & sheet(ks+1,2).text & sheet(ks+2,2).text & sheet(ks+3,2).text ........ & sheet(ks+50,2).text