[已解决]求VBA代码

zjh19820415

如何编写VBA代码实现附表中的效果呀？请高手指教谢谢各位大侠了！

最佳答案

月排行榜 / 总排行榜

lzclzch

2012-8-17 21:30

Private Sub CommandButton1_Click()
Dim i%, r%
m = 1: n = 1
For r = 2 To 4 Step 2
For i = 2 To 5
If Cells(i, r) = "×" Then
m = m + 1
Cells(m, 6) = Cells(i, r - 1)
Cells(m, 7) = Cells(i, r)
Else
n = n + 1
Cells(n, 8) = Cells(i, r - 1)
Cells(n, 9) = Cells(i, r)
End If
Next i
Next r
End Sub

跳转到最佳答案楼层

lzclzch

Private Sub CommandButton1_Click()
Dim i%, r%
m = 1: n = 1
For r = 2 To 4 Step 2
For i = 2 To 5
If Cells(i, r) = "×" Then
m = m + 1
Cells(m, 6) = Cells(i, r - 1)
Cells(m, 7) = Cells(i, r)
Else
n = n + 1
Cells(n, 8) = Cells(i, r - 1)
Cells(n, 9) = Cells(i, r)
End If
Next i
Next r
End Sub

zjh19820415

不错谢了！
我也编了一个供大家参考
Sub test3()
Dim rg As Range
m = 1
n = 1
For Each rg In Range("b2:b" & Range("b65536").End(3).Row, "d2:d" & Range("d65536").End(3).Row)
   If rg = "×" Then
   m = m + 1
Cells(m, 7) = rg.Text
Cells(m, 6) = rg.Offset(0, -1).Text
Cells(1, 6) = "代码"
Cells(1, 7) = "状态"
ElseIf rg = "√" Then
  n = n + 1
Cells(n, 9) = rg.Text
Cells(n, 8) = rg.Offset(0, -1).Text
Cells(1, 8) = "代码"
Cells(1, 9) = "状态"
   End If
  Next rg
End Sub

zjh19820415

怎么把代码放到excel对象中而不是模块中，并建立与commandButton之间的联系？

zjh19820415

怎么把代码放到excel对象中而不是模块中，并建立与commandButton之间的联系？

chuangxin_sun

ling8510

学习

sklzz888

蓝色泉韵

学习了，谢谢各位老师