Union这个方法具体是干什么的？

酔意流年

yaozong 发表于 2012-3-20 12:40
如果重复项均应突显时：
Sub bbb()
    Dim d, arr, s$, i

谢谢我看看

酔意流年

yaozong 发表于 2012-3-20 12:16
Private Sub CommandButton1_Click()
Dim d, arr, s$, i
arr = Range("a1", .End(3))

请问界面上的按钮如何生成的？

yaozong

酔意流年 发表于 2012-3-20 15:50
请问界面上的按钮如何生成的？

→右键→工具→窗体→选取(按钮)
→放至工作表
→右键该按钮（指定宏）

dgxsdr

返回的是区域，并非参数取值的连接

琥珀川1990

回答区说的很好，谢谢！

ning84

union 选择单元格，确定单元格格式。



确定最大值和最小值。

1. Sub deldeldeldel()
   
2.     Dim Sht As Worksheet
   
3.     Dim Rng As Range, oRng As Range
   
4.     Dim Rng1 As Range, Rng2 As Range
   
5.     Dim oMax, oMin
   
6.         
   
7.         Set Sht = Sheet3
   
8.         Set Rng = Sht.Range(Sht.Cells(3, 1).Formula)
   
9.         For jj = 1 To Rng.Rows.Count - 1
   
10.               Set Rng1 = Sht.Range(Rng(, jj).Formula)
    
11.               For ii = 2 To Rng.Rows.Count
    
12.                   Set Rng2 = Sht.Range(Rng(ii, 1).Formula)
    
13.                   Set Rng1 = Union(Rng1, Rng2)
    
14.               Next ii
    
15.               Rng1.Select
    
16.               Select Case jj
    
17.                   Case 1
    
18.                        Selection.NumberFormatLocal = "yyyy/m/d"
    
19.                   Case 2 To 5
    
20.                        Selection.NumberFormatLocal = "h:mm:ss;@"
    
21.                   Case 6, 7
    
22.                        Selection.NumberFormatLocal = "G/通用格式"
    
23.               End Select
    
24.               ''
    
25.               oMax = Application.WorksheetFunction.Max(Rng1)
    
26.               oMin = Application.WorksheetFunction.Min(Rng1)
    
27.               Debug.Print jj, oMax, oMin
    
28.         Next jj
    
29.         Stop
    
30.         Stop
    
31.         
    
32. End Sub

复制代码