恳请各位老师帮我看看如何VBA加备注

fangjilu

我是菜鸟，只会简单的VBA语言，我想在备注2列，把相同的户主编码对应的承包方姓名和实际补贴地亩，添加到备注2列。不知如何，有一户实际补贴地亩是0.6，运行后备注显示为.6 不知哪里错了，恳请各位老师指正。

cpp755625083

在实际补贴面积那一列加上千分分隔符，然后在重新运行宏代码即可

fangjilu

谢谢师傅，还有个问题要请教，
                If uu1 = "" Or Application.IsError(uu1) = True Then
                uu1 = "无"
                End If
                If uu2 = "" Or Application.WorksheetFunction.IsError(uu2) = True Then
                uu2 = 0
                End If
            这两句始终无法运行，烦请指点。

fangjilu

问题解决了，if 判断分两部进行
               If Application.WorksheetFunction.IsError(uu1) = True Then
                uu1 = "无名"
                End If
                If uu1 = "" Then
                uu1 = "无名"
                End If
               
                If Application.WorksheetFunction.IsError(uu2) = True Then
                uu2 = 0
                End If
                If uu2 = "" Then
                uu2 = 0
                End If
不知其中道理。

fangjilu

还有个问题想请教师傅：
yy = Application.WorksheetFunction.CountIf(Range(Cells(2, 10), Cells(e, 10)), Cells(a, 10))
这一句用SUMPRODUCT(($J$1:$J$1500=J2)*1)如何写
用CountIf统计大于15位的数字会出错，想用SUMPRODUCT这个函数写，可是不知道怎么写。望指点。谢谢。

windgod489

'代码加入 左上角逗号即可备注。