自定义函数--提取单元格内多个被分开的数字

sunny_8848 · 发表于 2019-11-2 08:13

YZC51 发表于 2019-11-1 20:03
D1=wei($A1,COLUMN(A1))
右拉、下拉

多谢帮忙，效果挺不错的

YZC51 · 发表于 2019-11-2 08:31

sunny_8848 发表于 2019-11-2 08:13
多谢帮忙，效果挺不错的

不客气。能用就好！

evg · 发表于 2019-11-2 14:05

本帖最后由 evg 于 2019-11-2 14:23 编辑

楼主,日线能不能转年线,日期顺序是倒的,

YZC51 · 发表于 2019-11-2 15:03

evg 发表于 2019-11-2 14:05
楼主,日线能不能转年线,日期顺序是倒的,

1、先升序排序
2、试试以下代码
arr = Sheet1.[a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 8)
brr(1, 1) = arr(2, 1)
brr(1, 3) = arr(2, 2)
min1 = 10 ^ 9
For i = 2 To UBound(arr) - 1
' If arr(i, 8) = arr(i + 1, 8) Then
'Debug.Print Month(arr(i, 1))
If Year(arr(i, 1)) = Year(arr(i + 1, 1)) Then
      s = s + arr(i, 6)
      s1 = s1 + arr(i, 7)
      max1 = Application.Max(max1, arr(i, 3), arr(i + 1, 3))
      min1 = Application.Min(min1, arr(i, 4), arr(i + 1, 4))
Else
      n = n + 1
      brr(n, 2) = arr(i, 1):
      brr(n + 1, 1) = arr(i + 1, 1)
      brr(n + 1, 3) = arr(i + 1, 2)
      brr(n, 4) = Application.Max(max1, arr(i, 3))
      brr(n, 5) = Application.Min(min1, arr(i, 4))
      brr(n, 6) = arr(i, 5)
      brr(n, 7) = s + arr(i, 6)
      brr(n, 8) = s1 + arr(i, 7)
      s = 0: s1 = 0: max1 = 0: min1 = 10 ^ 9
End If
Next
Sheet4.[A2].Resize(n + 1, 8) = ""
Sheet4.[A2].Resize(n, 8) = brr '
End Sub

YZC51 · 发表于 2019-11-2 15:07

请参考

股票日线转为周线、月线及年线.rar (170.46 KB, 下载次数: 20)

evg · 发表于 2019-11-2 15:12

YZC51 发表于 2019-11-2 15:07
请参考

新问题,数据为0,最低价为0

YZC51 · 发表于 2019-11-2 16:10

evg 发表于 2019-11-2 15:12
新问题,数据为0,最低价为0

1、查找替换-单元格匹配
2、将0 替换为 “|” 试试

evg · 发表于 2019-11-2 16:34

YZC51 发表于 2019-11-2 16:10
1、查找替换-单元格匹配
2、将0 替换为 “|” 试试

好的,将0 替换为 “|” 试试

YZC51 · 发表于 2019-11-2 20:12

学习群子老师的代码。谢谢老师！
http://club.excelhome.net/thread-1356247-1-1.html

Sub DataUnique() '提取不重复数据
On Error Resume Next
' Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(ActiveCell.Offset(Selection.Count + 3).Address), Unique:=True
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(ActiveCell.Offset(0, 1).Address), Unique:=True '在下一列，列出已经排序好的不重复值。
Range("Extract").Resize(Selection.Count).Sort Key1:=Range("Extract"), Order1:=xlAscending, Header:=xlYes: Range("Extract").Activate
End Sub
'用法：选中要提取不重复值的【单列】区域。然后执行代码
'结果：以范围第1行为标题，在数据下面隔开3行开始，列出已经排序好的不重复值。

玉阳山人 · 发表于 2019-11-3 06:23

YZC51 发表于 2019-11-2 20:12
学习群子老师的代码。谢谢老师！
http://club.excelhome.net/thread-1356247-1-1.html

恳请老师按附件要求，编写自定义函数的代码。

对区域内的指定数字进行计数.zip (10.03 KB, 下载次数: 37)

		自动登录	找回密码
密码			免费注册

[讨论] 自定义函数--提取单元格内多个被分开的数字

评分

评分