1=====根据上一个覆盖=====
;i代表行，j代表列
Option Explicit
Sub Macro2()
Dim str As String
Dim i As Integer
Dim j As Integer
For j = 1 To 3
For i = 2 To 871
If Sheet1.Cells(i, j) <> "" Then str = Sheet1.Cells(i, j)
If Sheet1.Cells(i, j) = "" Then Sheet1.Cells(i, j) = str
Next
Next
End Sub
2=====根据前一个情况序列=====
Option Explicit
Sub hong()
Dim i As Integer
Dim j As Integer
Dim str As String
str = Sheet4.Cells(2, 1)
j = 1
For i = 3 To 1793
If Sheet4.Cells(i, 1) = str Then
j = j + 1
Sheet4.Cells(i, 2) = j
End If
If Sheet4.Cells(i, 1) <> str Then
j = 1
Sheet4.Cells(i, 2) = j
End If
str = Sheet4.Cells(i, 1)
Next
End Sub
3=====分类统计宏＝＝＝＝＝
Option Explicit
Sub hong()
Dim i As Integer
Dim j As Double
Dim k As Double
Dim str As String
str = Sheet1.Cells(5, 4)
j = 0
k = 0
For i = 5 To 181
If Sheet1.Cells(i, 4) = str Then
k = Sheet1.Cells(i, 16)
j = j + k
End If
If Sheet1.Cells(i, 4) <> str Then
k = Sheet1.Cells(i, 16)
Sheet1.Cells(i - 1, 18) = j
j = k
End If
str = Sheet1.Cells(i, 4)
Next
End Sub
Option Explicit
Sub hong()
Dim i As Integer
Dim j As Double
Dim k As Double
Dim str As String
str = Sheet1.Cells(5, 4)
j = 0
k = 0
For i = 5 To 181
If Sheet1.Cells(i, 4) = str Then
k = Sheet1.Cells(i, 16)
j = j + k
End If
If Sheet1.Cells(i, 4) <> str Then
k = Sheet1.Cells(i, 16)
Sheet1.Cells(i - 1, 18) = j
j = k
End If
str = Sheet1.Cells(i, 4)
Next
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
TAG:
评分(
