lpk187

回復 10# regedit77


    按清除鈕後是把所有的內容資料清除，不是只有清除顏色，這樣的動作是正確的！！其實這動作也是當你清除資料後，也恢復原來文字的色彩，若不想在一起，你也可以把它分開
另外，會出現問題的地方應該是2003不支援，其實可以把那一列刪除掉的！
搜尋.rar (13.59 KB)

下載次數: 3

2015-11-22 16:56

regedit77

謝謝 lpk187 大大 其實這樣就很好用了，很讚喔，不用太傷腦了，感謝

准提部林

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xF As Range, xE As Range
With Target
　　　If .Address <> "$A$2" Then Exit Sub
　　　If .Value = "" Then Exit Sub
　　　Set xF = [Sheet1!A:A].Find(.Value, Lookat:=xlWhole)
　　　If xF Is Nothing Then MsgBox "無此資料": GoTo 999　'找不到，跳至〔標記999〕，並結束執行　
　　　Set xE = Cells(Rows.Count, "B").End(xlUp)(2)　'Ｂ欄最後一筆資料的下一空白格　
　　　Application.EnableEvents = False
　　　xF.Resize(1, 7).Copy xE　'複製內容（含格式）　
　　　xE = xE.Row - 1　'〔序號〕以〔列號〕減１　
End With
999:
Target.Select
Application.EnableEvents = True
End Sub


以下兩行意思一樣：
Set xE = Cells(Rows.Count, "B").End(xlUp)(2)
Set xE = Cells(Rows.Count, "B").End(xlUp).Cells(2, 1)

regedit77

感謝 准提部林 大大的指導，在 office 2003 執行也很順利，本來是不太想學程式如何寫的，只覺得一些公式會用就好，看樣子要稍微學一下程式了，往後不懂的地方在請各位大師指導，謝謝了