Re: [問題] excel 巨集(重複挑選資料到新的sheet)

看板Office作者 (葡萄神手)時間13年前 (2011/08/19 13:00), 編輯推噓0(003)
留言3則, 1人參與, 最新討論串2/2 (看更多)
※ 引述《alex1111 (啊哈)》之銘言: : (若是和其他不同軟體互動之問題 請記得一併填寫) : 軟體:excel : 版本:2003 : raw data 有1000筆左右 : 其中欄位A有A:200筆、B:150筆、C:250筆、D:300筆、E:100筆 : 想把欄位A的所有資料挑選出來貼到新的sheet、欄位B的所有資料貼到另一新sheet... : 依此類推 : 想問:除了土法煉鋼外 : vba 可以辦到嗎? : 會的先進可以分享一下嗎?謝謝! 提供思路和簡單的程式語句 首先通過new和更名,保證當前book擁有sheetA sheetB和sheetC 然后 Range("A65536").Select Selection.End(xlUp).Select MaxRow = ActiveCell.Row (這三行是獲取數據的最多行數) 然后通過 for i = 0 to MaxRow next i 語句循環 循環語句中通過if判斷 if range("A"&Trim(str(i)).Value = A then 復制到sheetA 同樣 = B則復制到sheetB =C則復制到sheetC -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 1.202.244.1

02/26 08:15, , 1F
看起來是將儲存格的資料放入變數str內
02/26 08:15, 1F

02/26 08:18, , 2F
但原文對這方面似乎也都沒有提到,range對應的括號也有錯
02/26 08:18, 2F

02/26 08:19, , 3F
=A也有誤,這樣寫A是變數,應為="A"
02/26 08:19, 3F
文章代碼(AID): #1EJUtVTA (Office)
文章代碼(AID): #1EJUtVTA (Office)