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

[發問] 無法執行vba

jim

中學生 Rank: 2

帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-18 16:21 | 顯示全部帖子

[發問] 無法執行vba

各位高手請指導修改vba
  我要把 sheet1中以 Dve行中有 K值之各欄貼到 sheet2  A5欄如下
      sheet1                               sheet2
1 Item  Des Dve  Ets
2 AA    BB    K    EE             k
3 A1    B1    2    E1
4 A2    B2    X    C2          Item  Des Dve Ets
5 A3    A3    K C4             AA BB    K    EE
6 A4    B4    Y C5             A3    A3    K    C4

Sub kkk ( )
Sheets(2).Range("A5:D" & Sheets(2).[a65536].End(xlUp).Row + 1).ClearContents
For i = 2 To [a65536].End(xlUp).Row
If Cells(i, 3) = Sheets(2).[A2] Then
k = Sheets(2).[a65536].End(xlUp).Row + 1
Range("a" & i & ": d" & i).Copy Sheets(2).Range("a" & k)
k = k + 1
End If
Next i
end sub

樓主熱帖

jim

中學生 Rank: 2

帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

2^#

發表於 2011-4-18 17:15 | 顯示全部帖子

回復 2# chin15

chin15
   謝謝你的指導但是程式上執行後是全部貼上而沒分類
或許我沒說清楚 Sheet2上的a2儲存格值是變數  (  Item   Des    Dve   Ets 是抬頭單位 )
  當Sheet2上的a2儲存格值是 k 時則 Dve行屬於 k 時則Sheet1 第 2 , 5 行則貼在Sheet2上a5及a6 Row上
  當Sheet2上的a2儲存格值是 X 時則 Dve行屬於 X 時則Sheet1 第 4  行則貼在Sheet2上a5 Row上

TOP

jim