[算表] 隔列複製的vba

看板Office作者hochengyuan (阿淵)時間13年前 (2013/04/14 02:43)推噓0(0推 0噓 5→)

留言5則, 2人參與討論串1/1

軟體:excel 版本:2010 最近在學寫vba 想知道怎樣隔列複製儲存格到其他工作表裡例如: 工作表一 A B C D F G... 1 2 3 4 5 6 a 7 8 9 b 10 11 12 c 13 14 15 d . . . 然後把"工作表一"a,b,c,d複製到"工作表二"成以下(d後面還有好多資料) A B C D E F 1 2 a 3 b 4 c 5 d 6 e 7 f 8 . 9 . 10 . 11 12 13 14 目前我寫程式寫得很爛，打算先用do...loop去抓到底要抓到哪裡為止然後再用餘數找到我要的資料最後複製過去以下是程式碼 Sub ranking() Call ranking_team_counting Call ranking_team_reading Call ranking_team_transferring End Sub Sub ranking_team_counting() Worksheets("Total Score").Select i = 6 Do i = i + 1 If i = i Mod 3 = 0 And Cells(i, 2) = "" Then no = i Exit Do End If Loop End Sub Sub ranking_team_reading() Worksheets("Team Score").Select For i = 6 To no x = i Mod 3 = 0 If x <> 0 Then rank_list(x) = Cells(x, 2) End If Next End Sub Sub ranking_team_transferring() Worksheets("Team Ranking").Select For i = 1 To no Cells(i, 2) = rank_list(x) Next End Sub 還請各位高手多多指導謝謝 -- 可是哈卜拉姆再聰明、再有學問，有一件事卻是他不能解答的，因為包羅萬有的「可蘭經」上也沒有答案；如果你深深愛著的人，卻深深的愛上了別人，有甚麼法子？白馬帶著她一步步的回到中原。白馬已經老了，只能慢慢的走，但終是能回到中原的。江南有楊柳、桃花，有燕子、金魚……漢人中有的是英俊勇武的少年，倜儻瀟灑的少年…… 但這個美麗的姑娘就像古高昌國人那樣固執：「那都是很好很好的，可是我偏不喜歡。」金庸<白馬嘯西風>(完) -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 118.169.165.68 ※ hochengyuan:轉錄至看板 Visual_Basic 04/14 02:45