Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1818|回复: 8

[已解决]关于filldown

[复制链接]
发表于 2017-8-15 12:58 | 显示全部楼层 |阅读模式
本帖最后由 edisonx32123 于 2017-8-15 16:21 编辑

QQ截图20170815125532.jpg
如上图所示,需要在J列统计出文具在单元格区域出现的次数,请教代码该如何写。以下是我写的代码:
Sub tj()
    Dim d As New Dictionary
    Dim x As Integer, y As Integer
    Dim arr
    arr = Range("a2:g" & Range("a65536").End(xlUp).Row)
    For x = 1 To UBound(arr)
    For y = 1 To UBound(arr, 2)
    If arr(x, y) <> "" Then
    d(arr(x, y)) = ""
    End If
    Next y
    Next x
    Range("i2").Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.Keys)
    Range("j2") = Application.WorksheetFunction.CountIf(Range("a2:g16"), Range("i2"))
    Range("j2:j16").FillDown '这句应该是不对的
End Sub


最佳答案
2017-8-15 14:38
Sub tj()
    Dim d As New Dictionary
    Dim x As Integer, y As Integer
    Dim arr
    arr = Range("a2:g" & Range("a65536").End(xlUp).Row)
    For x = 1 To UBound(arr)
    For y = 1 To UBound(arr, 2)
    If arr(x, y) <> "" Then
    d(arr(x, y)) = ""
    End If
    Next y
    Next x
    Range("i2").Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.Keys)
    Range("j2") = Application.WorksheetFunction.CountIf(Range("a2:g16"), Range("i2"))
    Range("j2:j16").FillDown '这句应该是不对的

End Sub
======================================
例如:
    Range("j2") .Formula = "=c12"
  Range("j2:j16")..FillDown  
这样才是填充公式. 你那样是填充的一个常数
用vba 往单元格 写 公式 , 公式里面有 " 就比较绕了 , 不好处理

===========================================


上面直接改为 就好
   d(arr(x, y)) =  d(arr(x, y))+1
Range("j2").Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.items)

发表于 2017-8-15 14:18 | 显示全部楼层
为什么都已经用字典了不用字典求和呢
回复

使用道具 举报

发表于 2017-8-15 14:38 | 显示全部楼层    本楼为最佳答案   
Sub tj()
    Dim d As New Dictionary
    Dim x As Integer, y As Integer
    Dim arr
    arr = Range("a2:g" & Range("a65536").End(xlUp).Row)
    For x = 1 To UBound(arr)
    For y = 1 To UBound(arr, 2)
    If arr(x, y) <> "" Then
    d(arr(x, y)) = ""
    End If
    Next y
    Next x
    Range("i2").Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.Keys)
    Range("j2") = Application.WorksheetFunction.CountIf(Range("a2:g16"), Range("i2"))
    Range("j2:j16").FillDown '这句应该是不对的

End Sub
======================================
例如:
    Range("j2") .Formula = "=c12"
  Range("j2:j16")..FillDown  
这样才是填充公式. 你那样是填充的一个常数
用vba 往单元格 写 公式 , 公式里面有 " 就比较绕了 , 不好处理

===========================================


上面直接改为 就好
   d(arr(x, y)) =  d(arr(x, y))+1
Range("j2").Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.items)

回复

使用道具 举报

 楼主| 发表于 2017-8-15 15:46 | 显示全部楼层
chart888 发表于 2017-8-15 14:18
为什么都已经用字典了不用字典求和呢

想知道filldown为什么用不了。。
回复

使用道具 举报

 楼主| 发表于 2017-8-15 15:47 | 显示全部楼层
砂海 发表于 2017-8-15 14:38
Sub tj()
    Dim d As New Dictionary
    Dim x As Integer, y As Integer

嗯,谢谢!不过还是想知道filldown为什么用不了。。
回复

使用道具 举报

发表于 2017-8-15 15:54 | 显示全部楼层
filldown没有用不了
j2 没有填充下来么 !?

不要看VBA , 手动操作 !!! 看填充效果 .
回复

使用道具 举报

发表于 2017-8-15 16:06 | 显示全部楼层
用的了呀,只是结果不如你意,原因3楼给你说了的哟
回复

使用道具 举报

 楼主| 发表于 2017-8-15 16:19 | 显示全部楼层
上清宫主 发表于 2017-8-15 16:06
用的了呀,只是结果不如你意,原因3楼给你说了的哟

好的,谢谢
回复

使用道具 举报

 楼主| 发表于 2017-8-15 16:21 | 显示全部楼层
砂海 发表于 2017-8-15 15:54
filldown没有用不了
j2 没有填充下来么 !?

理解了,谢谢!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 17:29 , Processed in 0.404456 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表