||
查找矩阵中所有的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
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-9-21 09:30
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社