VBA实现数据累加求合，提示错误

重庆思豆

Dim s1 As Double
With Intersect(ActiveSheet.UsedRange, [y:ab])   '将 Y、AB 列 转换为 数字格式
    .NumberFormatLocal = "G/通用格式"
    .Value = .Value
End With     '网上找的将  值转为数字

j = Range("bt65536").End(xlUp).Row  '非空行数

For i = 2 To j


s1 = Range("g" & i).value + Range("h" & i).value +s1       '
End If


为什么提示 “类型不匹配”    新手书上找不到解答，身边也没有会的   请指点

重庆思豆

字符第一个字符不是E  如何写 给点提示  书上没有

不知道为什么

重庆思豆 发表于 2018-9-10 11:50
字符第一个字符不是E  如何写 给点提示  书上没有

if left(字符串，1)<>"E" then


end if

重庆思豆

Dim i As Integer
j = Range("bt65536").End(xlUp).Row  '非空行数
For i = 1 To j
If Range("i" & i) = "家庭自用汽车产品" And Left("A" & i, 1) <> E AND Left("C" & i, 1) <> E Then
m = m + 1      
End If
Next i
这样可以不

不知道为什么

重庆思豆 发表于 2018-9-10 12:01
Dim i As Integer
j = Range("bt65536").End(xlUp).Row  '非空行数
For i = 1 To j

1. Sub test()
   
2.     arr = [a1].CurrentRegion
   
3.     For i = 2 To UBound(arr)
   
4.         m1 = Trim(arr(i, 1)): M2 = Trim(arr(i, 3))
   
5.         If Len(m1) And Len(M2) Then
   
6.             If Left(m1, 1) <> "E" And Left(M2, 1) <> "E" Then
   
7.                 s = s + 1
   
8.             End If
   
9.         End If
   
10.     Next i
    
11.     MsgBox s
    
12. End Sub

复制代码

重庆思豆

能不能直接在我的代码上  修改，这样我容易理解点，大侠的代码我又得重新去理解好多不会的语句 感谢

重庆思豆

重庆思豆 发表于 2018-9-10 12:01
Dim i As Integer
j = Range("bt65536").End(xlUp).Row  '非空行数
For i = 1 To j

Dim i As Integer
j = Range("bt65536").End(xlUp).Row  '非空行数
For i = 1 To j
If Range("i" & i) = "家庭自用汽车产品" And Left(range("A" & i), 1) <> E AND Left(range("C" & i), 1) <> E Then
m = m + 1      
End If
Next i
这样好像可以了

alstar

工作1.rar (12.71 KB, 下载次数: 5)

2018-9-10 12:59 上传

点击文件名下载附件

重庆思豆

将问题 重新编辑  改了一下