→ soyoso: 迴圈於b3:bn(最後有值儲存格或列號可以range.end、range. 08/05 23:10
→ soyoso: find，列號range.row，或以工作表函數counta)，以搜尋h欄 08/05 23:10
→ soyoso: range.find，計數工作表函數countif，以搜尋到的儲存格 08/05 23:10
→ soyoso: range.offset到i欄，或以搜尋到的儲存格列號從i欄offset， 08/05 23:10
→ soyoso: range.resize就以計數的值來調整大小；最後range.copy， 08/05 23:10
→ soyoso: range.pastespecial transpose為真true。 08/05 23:10
→ soyoso: 或range = worksheetfunction.transpose(range)的方式 08/05 23:10
→ johnny1215: soyoso大大，小弟不材 可否寫成範例，謝謝 08/05 23:16
→ soyoso: 先動手寫，有問題提出 08/05 23:19