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

YZC51

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

不客气。能用就好！

evg

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

YZC51

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

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

2019-11-2 15:07 上传

点击文件名下载附件

evg

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

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

YZC51

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

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

evg

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

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

YZC51

学习群子老师的代码。谢谢老师！
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行开始，列出已经排序好的不重复值。

玉阳山人

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

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



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

2019-11-3 06:23 上传

点击文件名下载附件

YZC51

玉阳山人 发表于 2019-11-3 06:23
恳请老师按附件要求，编写自定义函数的代码。

不好意思，等下，抽时间看看！