程序應該接收一列(D34:D99)中重複單元格值(D34)多少次。但程序顯示爲零。在一列中重複單元格值多少次。使用查找方法
Sub распознать()
Dim r As Range
Dim firstAddress As String
Dim iLoop As Long
Dim book1 As Workbook
Dim Team As String
Set book1 = Workbooks.Open("E:\Super M\Проект ставки\Поиск решения\Усов 4\БАЗА ДАННЫХ\болванка\сезон для проги\Англия\1-ое место\3.xlsx")
Team = book1.Worksheets("3").Range("D34")
With book1.Worksheets("3").Range("D33:D99")
Set r = .Find(What:="Team")
If Not r Is Nothing Then
firstAddress = r.Address
Do
iLoop = iLoop + 1
Set r = .FindNext(r)
Loop While Not r Is Nothing And r.Address <> firstAddress And iLoop < 20
End If
End With
book1.Worksheets("3").Range("D100").Value = iLoop
book1.Save
末次
我不清楚爲什麼在[COUNTIF函數(https://support.office.com/ en-US/article/COUNTIF-function-E0DE10C6-F885-4E71-ABB4-1F464816DF34)是不夠的,但您應該擴展[Range.Find方法]的參數(https://msdn.microsoft.com/en- us/library/office/ff839746.aspx)超出默認值le英尺由以前的用法。 – Jeeped
我找到另一個解決方案。感謝您的幫助 – maxim465