資料相同排在同一列的問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 資料相同排在同一列的問題

返回列表下一主題上一主題發帖

資料相同排在同一列的問題

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

1^# 跳轉到 »

發表於 2012-4-3 14:22 | 顯示全部帖子

回復 1# lionliu

笨方法~ 可以用~ 但還是要依你的要的結果再去調整~

Sub EX()
For Each A In Range("B2:B21")
B = Application.Match(A, Sheet1.Range("D7:D20"), 0)
Cells(6 + B, 255).End(xlToLeft).Offset(0, 1) = A.Offset(0, -1)
'6+B的用法是表是從第6列以後，因match是相對位置
'例如完成表A是相對位置的第1列，所以6+1=7
'完成表B是相對位置的第2列，所以6+2=8
Next
End Sub

複製代碼

學習才能提升自己

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2012-4-3 19:19 | 顯示全部帖子

回復 6# GBKEE

  看到G大跟r大的寫法~ 雖有不同~
  但有一點是相通的大家都是從最右邊往最左邊填入資料
  range("IV"& n).end(xltoleft).offset(0,1)
  怎麼都沒有人寫其他方式呢??

學習才能提升自己

靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。

返回列表下一主題上一主題