查找矩阵中所有的1

然后按顺序赋值为其所在序数。

Sub Zone()
   Dim i As Long
   Dim j As Long
   Dim a As Long
   
   a = 1
   
   For i = 1 To 1750
       For j = 1 To 40
       If Sheet1.Cells(i, j) = 1 And a <= 100 Then
           Sheet3.Cells(i, j) = a
           a = a + 1
       Else: Sheet3.Cells(i, j) = Sheet1.Cells(i, j)
       End If
       
'??,?1-100
       
       Next
   Next
End Sub