dim myStr$
MyStr=Join(range("B:B ")。值,“”)將B列中的每個值連接成壹個字符串。
如果mystr = ""thenmsgbox "列B為空"'這個判斷也可以作為Len(myStr)=0。