今天來個輕松的問題。
問題如下:根據A列的數據,轉換成C到D列等不定列數的排列方式。簡單點說,就是把豎向的一列數據,轉換成橫向的多列數據。
如上圖:
圖一:A列轉換成了三列多行數據。
圖二:A列轉換成了八列多行數據。
解決的思路:1:把A列數數據放入數組。
2:用inputbox接收目标的行數
3:把原始的數據,按照行數進行分割。
4:把分割的數據,分别放入新的數組。
5:把新的數組,寫入表格。
運行的過程如下:代碼如下:
代碼解析:
Inputbox函數解析
語法 InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context]) 參數說明
Prompt - 必需的參數。 在對話框中顯示為消息的字符串。提示的最大長度大約為1024個字符。 如果消息擴展為多行,則可以使用每行之間的回車符(Chr(13))或換行符(Chr(10))來分隔行 。 title - 一個可選參數。顯示在對話框的标題欄中的字符串表達式。如果标題留空,應用程序名稱将被放置在标題欄中
default - 一個可選參數。用戶希望顯示的文本框中的默認文本。
xpos - 一個可選參數。X軸的位置表示水平從屏幕左側的提示距離。 如果留空,則輸入框水平居中。
ypos - 一個可選參數。Y軸的位置表示豎直方向從屏幕左側的提示距離。如果留空,則輸入框垂直居中
helpfile - 一個可選參數。一個字符串表達式,标識用于為對話框提供上下文相關幫助的幫助文件。 context - 一個可選參數。一個數字表達式,用于标識由幫助作者分配給相應幫助主題的幫助上下文編号。如果提供上下文,則還必須提供helpfile。
點擊關注,可以閱讀更多與VBA 相關的文章私信 VBA或 vba 可以獲取文章中含VBA代碼的Excle文件,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!