Question

EXCEL、VFP6.0的命令

如图，本人想知道得到C列的公式，需要完成2个部分，其一要求A列内容相同的单元格个数在C列自动合并为一个单元格；其二C列中所得数值=B列中内容为“是”的个数。求各位大神指导，如果有VFP6.0中使用的语言编程更好。创建一个新的EXCEL中并把C列的值按照合并后的格式写入某列。求各位大神指导。
24小时在线等答案，秒答秒回，求大神伤神。

Answer 1

用函数公式计算，如下图

EXCELL2003版

EXCEL2007版的函数比2003版的简便，如下图

如满意请给个采纳

追问

公式列出后，现实空白

追答

你引用单元格有没有错误

追问

弄好了，就是不知道怎么实现单元格合并的问题

Answer 2

看半天也没人回答，你的文件如果是excel，可以把文件发给我，我给你写vba批量处理，其他的编程我也不懂。我的邮箱10352786@qq.com

追问

我有很多个表需要处理，上图是我取其中一例，所以希望能找到合适的处理方法

电脑关了，明早给您发

追答

Sub 合并()
Dim h%, i%, k%, str$, h1%
With Sheets("Sheet1")
    h = .Range("a65536").End(xlUp).Row
    h1 = 2
    If .Cells(2, 2) = "是" Then
        k = k + 1
    End If
    str = .Cells(2, 1)
    For i = 3 To h
        If .Cells(i, 1) = str Then
            If .Cells(i, 2) = "是" Then
                k = k + 1
            End If
        Else
            Application.DisplayAlerts = False
            .Range("c" & h1 & ":c" & i - 1).Merge
            Application.DisplayAlerts = True
            
            .Cells(h1, 3) = k
            str = .Cells(i, 1)
            h1 = i
            If .Cells(i, 2) = "是" Then
                k = 1
            Else
                k = 0
            End If
            
        End If
            
    Next
    .Range("c" & h1 & ":c" & i - 1).Merge
    .Cells(h1, 3) = k
End With
End Sub

 你试试吧，给你回邮件了