[已解决]VBA问题求助，感谢大佬们

雪之下路漫漫

大佬们，求助一个VBA的问题。
这里我就是想把不连续重复的值加在一起放置于B2单元格。但是else后面自动加了个冒号：，而且会报错。希望有大佬看看是哪里有问题，谢谢

最佳答案

月排行榜 / 总排行榜

wp231957

2022-5-2 14:55:19

雪之下路漫漫 发表于 2022-5-4 15:39
嗯嗯，但是我输入else也好，end if也好，都会报出没有if块的错误。这个我实在不知道怎么改。您可以帮忙改 ...

还可以进一步简化：

1. Sub ooo()
   
2.   Dim i, j As Integer
   
3.   j = 1
   
4.   For i = 1 To 12
   
5.     If Range("a" & i + 1) <> Range("a" & i) Then
   
6.       Range("b" & j) = Range("a" & i).Value
   
7.       j = j + 1
   
8.     End If
   
9. Next
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

wp231957

雪之下路漫漫 发表于 2022-5-4 15:39
嗯嗯，但是我输入else也好，end if也好，都会报出没有if块的错误。这个我实在不知道怎么改。您可以帮忙改 ...

还可以进一步简化：

1. Sub ooo()
   
2.   Dim i, j As Integer
   
3.   j = 1
   
4.   For i = 1 To 12
   
5.     If Range("a" & i + 1) <> Range("a" & i) Then
   
6.       Range("b" & j) = Range("a" & i).Value
   
7.       j = j + 1
   
8.     End If
   
9. Next
   
10. End Sub
    

复制代码

wp231957

主要是你的if   else   endif    啥也没干啊
k=k是神马鬼

雪之下路漫漫

wp231957 发表于 2022-5-2 20:16
主要是你的if   else   endif    啥也没干啊
k=k是神马鬼

IF a1不等于a2，那么k就累加上a1的值。否则k保持现状。请问该怎么改呢？

新源

每个with和if都有配对的end with和end if
用完就要end
结束时候也必须要使用else。

新源

还有else怎么在end if 前面，这里应该也有语法错误，
k=k的赋值放在最后面，if   else   endif要与end相结合使用

雪之下路漫漫

新源 发表于 2022-5-4 10:55
还有else怎么在end if 前面，这里应该也有语法错误，
k=k的赋值放在最后面，if   else   endif要与end相结 ...

嗯嗯，但是我输入else也好，end if也好，都会报出没有if块的错误。这个我实在不知道怎么改。您可以帮忙改一下代码，让我看一下正确的应该怎么写吗？谢谢大佬。

wp231957

雪之下路漫漫 发表于 2022-5-4 15:39
嗯嗯，但是我输入else也好，end if也好，都会报出没有if块的错误。这个我实在不知道怎么改。您可以帮忙改 ...

家里电脑没有微软的excel  

1. Sub ooo()
   
2.   Dim i, k As Integer
   
3.   Dim j As Integer
   
4.   j = 1
   
5.   For i = 1 To 12
   
6.     k = 0
   
7.     If Range("a" & i + 1) <> Range("a" & i) Then
   
8.       k = k + Range("a" & i).Value     'else k=k 实属无用语句  故可省略
   
9.     End If
   
10.     If k Then
    
11.       Range("b" & j) = k
    
12.       j = j + 1     '增加这个变量意思是 从第一行写入数值
    
13.     End If
    
14.   Next
    
15. End Sub
    

复制代码

wp231957

雪之下路漫漫 发表于 2022-5-4 15:39
嗯嗯，但是我输入else也好，end if也好，都会报出没有if块的错误。这个我实在不知道怎么改。您可以帮忙改 ...

附效果图

18946033894

可以使用字典功能，判断字典中是否有该数值，没有就添加，再把字典的内容输出给B列