請問一下要怎麼作

brabus

如附件
說明:SHEET的J2到J200是存放名字的地方
名字會從別的工作表複制過來,人數不一定是多少
當我在工作表1的F9儲存格輸入數字時
他會找到相對應的人名比方
我輸入5,會在J2到J200中找到編號5的名字高rr
呈現在F10儲存格
當我按下旁邊的顥示格式後
希望在工作表2的E4儲存格出現工作表1,F10的人名(如高rr)
接著要把該人員的名字從J2到J200中移除
(使得他原來在的位置呈現空白,下方的儲存格不用移動)
並按順序在工作表3的A1開始
依順序顯示如第一次操作選的是高rr,第二次是廖rg
........
我己經好部份的東西了
還差人名的位置變空白和人名依順序排列在工作表3
請高手們幫忙
謝謝

brabus

感謝你的回覆
不過這個檔只有不到200k
怎會系統資源不足??
我也不知道呢

luhpro

回復 1# brabus
要確認總人數可以使用
Sheets("Sheet1").Cells(Rows.Count, 10).End(xlUp).Row
取得

因為你例子中的序號與列號有相對應關係,所以可以直接用
Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .Column = 6 And .Row = 9 Then
      .Cells(10, 6) = .Cells(.Cells(9, 6) + 1, 10)
      .Cells(.Cells(9, 6) + 1, 10) = ""
    End If
  End With
End Sub

至於 Sheet3 中的列表,
則只要透過一個儲存列號的變數,
就可以確定下一個要放名字的儲存格了.

另外不知為何我的電腦跑你那個檔案,
會一直出現系統資源不足的警告訊息?