这个怎么样以代码解决

hongqiqqq

刚开始准备学V，就遇到这样的问题了，请帮忙处理一下
先谢谢了

hwc2ycy

没看出sheet1与sheet4有什么关系。

hongqiqqq

hwc2ycy 发表于 2013-12-29 23:07
没看出sheet1与sheet4有什么关系。

真抱歉，那是我自己做的，忘记清理了
表四应该是空白的，请烟花老师多多指导。

hwc2ycy

hongqiqqq 发表于 2013-12-30 06:59
真抱歉，那是我自己做的，忘记清理了
表四应该是空白的，请烟花老师多多指导。

Sheet3中显示C列的结果。（只留最大值和最小的日期值 如果最大日期值和最小日期值一样则仍旧留2两个值 如果日期有错误则显现该值得行号）
这个怎么理解呀？
最好举例说明。

hongqiqqq

hwc2ycy 发表于 2013-12-30 08:56
Sheet3中显示C列的结果。（只留最大值和最小的日期值 如果最大日期值和最小日期值一样则仍旧留2两个值 如 ...

就是删除重复的日期 然后留两个 一个最大日期 一个最小日期。
如果最大日期和最小日期一样，显示一个即可
如果日期有错误则显现该值得行号，意思是只要有错误，显示出来错误值所在的行，不用再找最大最小日期了

hwc2ycy

hongqiqqq 发表于 2013-12-30 20:48
就是删除重复的日期 然后留两个 一个最大日期 一个最小日期。
如果最大日期和最小日期一样，显示一个即可 ...

C列的日期没法理解，你最好来个效果图。
另外，你说的日期最大小最，是相对于同一单位么?
还有这个，如果日期有错误则显现该值得行号

hongqiqqq

hwc2ycy 发表于 2013-12-30 23:55
C列的日期没法理解，你最好来个效果图。
另外，你说的日期最大小最，是相对于同一单位么?
还有这个，如 ...

如果不考虑这一个问题，其他的能处理吗？

hwc2ycy

hongqiqqq 发表于 2013-12-31 07:25
如果不考虑这一个问题，其他的能处理吗？

1. Sub test()
   
2. 
   
3.     Dim arr, i As Long, str$
   
4.     Dim objDic As Object
   
5.     Set objDic = CreateObject("scripting.dictionary")
   
6. 
   
7.     With Sheet1
   
8.         .Columns(2).Copy Sheet2.Range("b1")
   
9.         arr = .Range("d1:f" & .Cells(Rows.Count, "d").End(xlUp).Row)
   
10.     End With
    
11.    
    
12.     For i = 1 To UBound(arr)
    
13.         str = arr(i, 1)
    
14.         If str Like "?*--*" Then
    
15.             str = Left(str, InStr(arr(i, 1), "--") - 1)
    
16.         ElseIf arr(i, 1) Like "--*" Then
    
17.             str = ""
    
18.         End If
    
19.         str = Replace(myreplace(str), "郑州市", "")
    
20.         arr(i, 1) = str
    
21.         objDic(str) = ""
    
22.     Next
    
23. 
    
24.     With Sheet4
    
25.         .Columns(1).Clear
    
26.         '.Range("a1").Resize(UBound(arr)).Value = arr
    
27.         '.Columns(1).RemoveDuplicates 1, xlNo
    
28.         '10自带的去重复功能
    
29.         If objDic.Count Then
    
30.             .Range("b1").Resize(objDic.Count).Value = WorksheetFunction.Transpose(objDic.keys)
    
31.         End If
    
32.         '字典去重复，写在B1列了。
    
33.     End With
    
34.     Set objDic = Nothing
    
35.     MsgBox "完成"
    
36. End Sub
    
37. 
    
38. Function myreplace(str) As String
    
39.     Dim temp As String * 1
    
40.     Dim i As Long
    
41.     For i = 1 To Len(str)
    
42.         temp = Mid(str, i, 1)
    
43.         If Not temp Like "“，。？、·【】；！”"",.?[]!;" Then
    
44.             myreplace = myreplace & temp
    
45.         End If
    
46.     Next
    
47. End Function
    

复制代码

hongqiqqq

hwc2ycy 发表于 2013-12-30 23:55
C列的日期没法理解，你最好来个效果图。
另外，你说的日期最大小最，是相对于同一单位么?
还有这个，如 ...

这样的例子能说清楚吗

hwc2ycy

hongqiqqq 发表于 2013-12-31 15:08
这样的例子能说清楚吗

实在看不明白你这效果是怎么来的。
日期分成3列又是怎么回事。