求幫忙!有關重複輸入的資料是否可以自動覆蓋??? - Excel程式區

[發問] 求幫忙!有關重複輸入的資料是否可以自動覆蓋???

　暱稱: 彰化一整天

11^# 跳轉到 »

發表於 2018-5-12 09:35 | 只看該作者

本帖最後由 imingho 於 2018-5-12 09:40 編輯

回復 1# afu9240
您原本程式碼的if判斷在加上一個Or Sheets("工作表4").Cells(i, 2) = Sheets("工作表1").Cells(3, 6) 就會自動覆蓋

Sub EX()
Dim i As Integer
Dim y As Integer
i = 2
Do
If Sheets("工作表4").Cells(i, 1) = "" Or Sheets("工作表4").Cells(i, 2) = Sheets("工作表1").Cells(3, 6) Then
Exit Do
End If
i = i + 1
Loop
Sheets("工作表4").Cells(i, 1) = Sheets("工作表1").Cells(3, 2)
Sheets("工作表4").Cells(i, 2) = Sheets("工作表1").Cells(3, 6)
Sheets("工作表4").Cells(i, 3) = Sheets("工作表1").Cells(3, 4)
Sheets("工作表4").Cells(i, 4) = Sheets("工作表1").Cells(7, 3)
Sheets("工作表4").Cells(i, 5) = Sheets("工作表1").Cells(8, 3)
Sheets("工作表4").Cells(i, 6) = Sheets("工作表1").Cells(9, 3)
Sheets("工作表4").Cells(i, 7) = Sheets("工作表1").Cells(10, 3)
If Sheets("工作表4").Cells(i, 7) <= 59 Then
Sheets("工作表4").Cells(i, 8) = "丁"
End If
If Sheets("工作表4").Cells(i, 7) >= 60 Then
Sheets("工作表4").Cells(i, 8) = "丙"
End If
If Sheets("工作表4").Cells(i, 7) >= 70 Then
Sheets("工作表4").Cells(i, 8) = "乙"
End If
If Sheets("工作表4").Cells(i, 7) >= 80 Then
Sheets("工作表4").Cells(i, 8) = "甲"
End If
If Sheets("工作表4").Cells(i, 7) >= 90 Then
Sheets("工作表4").Cells(i, 8) = "優"
End If
End Sub

複製代碼

12^#

發表於 2018-5-14 13:46 | 只看該作者

回復 11# imingho

感謝i大回復!!!thanks*20000

yvonne

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。