1) FOR ループに問題があります。私は無限に行きます。そして、これは私があなたの助けを求める最初の問題です。
2) 2 つ目の問題は、"If" に複数の条件を追加する方法がわからないことです。
私の質問はコメントとしてコードに含まれています。
Sub Repurchase_upload()
Dim Worksheet As Worksheets
startrow = Worksheets("GUTS").Cells(10, 1) 'Here I denote 1
endrow = Worksheets("GUTS").Cells(11, 1) 'Here I denote 1000
For x = startrow To endrow
If Cells(x, "A").Value <> "DU" Then 'I would like it to look like that: 'If Cells(x, "A").Value <> "DU" or "DR" or "EK" Then' but I don't know how to do this 'or'
Cells(x, "A").EntireRow.ClearContents
End If 'And here it won't end...
Next
End Sub