|
发表于 2011-11-4 11:37
|
显示全部楼层
本楼为最佳答案
本帖最后由 爱疯 于 2011-11-4 11:50 编辑
- Sub 按钮4_Click()
- Dim A(), B(), n%, i%, j%, k%
- With Sheets("sheet1")
- i = .Range("a2").End(xlDown).Row
- A = .Range("a2:b" & i).Value
- End With
- n = 4
- ReDim B(1 To UBound(A), 1 To n)
-
- '为给b赋初值
- For i = 1 To UBound(B)
- For j = 1 To UBound(B, 2)
- B(i, j) = 0
- Next j
- Next i
-
- For i = 1 To UBound(A)
- For j = 1 To UBound(A, 2)
- For k = 1 To n
- If A(i, j) = k Then
- B(i, k) = 1
- Exit For
- End If
- Next k
- Next j
- Next i
- Sheets("sheet1").Range("d2").Resize(UBound(B), UBound(B, 2)) = B
- End Sub
复制代码
没用countif做{:141:}
|
|