Question

求高人用vb或者vba在excel里编一个简单小程序

求高人用vb或者vba在excel里编一个简单小程序，需要实现这样一个功能，一共三列A B C,三列的每个单元格的数据都是“EX VG G ”这三个数据中的一个，要求在第四列里对应的单元格的中算出这一行的EX的个数，在第五列里对应的单元格的中算出这一行的VG的个数，在第四列里对应的单元格的中算出这一行的G的个数,举例：A1 EX B1 G C1 EX ,D1应该就是 2EX E1应该就是 0VG F1应该就是 1G ; A2 EX B2 VG C2 VG ,D2应该就是 1EX E2应该就是 2VG F2应该就是 0G .....这样N多行数据。不知道程序能不能实现，请高手帮忙，谢谢哦

Answer 1

其实不用程序实现，用小公式就行：
D1的公式
=COUNTIF($A1:$C1,"EX")&"EX"
E1的公式
=COUNTIF($A1:$C1,"VG")&"VG"
F1的公式
=COUNTIF($A1:$C1,"G")&"G"
然后公式往下拉，填充就行。

Answer 2

D1的公式
=COUNTIFS($A1:$C1,"EX")&"EX"

E1的公式

=COUNTIFS($A1:$C1,"VG")&"VG"

F1的公式
=COUNTIFS($A1:$C1,"G")&"G"

Answer 3

Sub ss()
Dim s As Range, a As Range
Dim EX As Integer, VG As Integer, G As Integer
For Each s In ActiveSheet.UsedRange.Rows
For Each a In s.Cells
Select Case a.Value
Case "EX"
EX = EX + 1
Case "VG"
VG = VG + 1
Case "G"
G = G + 1
End Select
Next
Range("d" & CStr(s.Row)).Value2 = CStr(EX) & " EX"
Range("e" & CStr(s.Row)).Value2 = CStr(VG) & " VG"
Range("f" & CStr(s.Row)).Value2 = CStr(G) & " G"
EX = 0
VG = 0
G = 0
Next
End Sub

Answer 4

需要软件还是?
其实就和他们说的一样
直接在EXCEL里面写一个代码就可以实现了
还是你一定需要软件,而且软件还要体现EXCEL表格,然后还可以输入?