墙上那一串串红辣椒——数组入门讲座

keya

老师好。顶帖子了，学生乖不？

syz105729913

Private Sub CommandButton1_Click()
    Dim xm() As String, Arr() As String, Temp() As String '声明变量
    Dim s%, r% '声明单值变量
    On Error Resume Next '启动一个错误处理程序
    xm = Split(Range("a1"), ",") '用A1单元格的数据创建数组
    r = 0 '初值
    s = UBound(xm) '最大下标
    For i = 0 To s '循环
        Temp = Filter(Arr, xm(i)) '搜索数组
        If UBound(Temp) = -1 Then '如果未找到
            r = r + 1 '序号，自增1
            ReDim Preserve Arr(1 To r) '定义动态数组大小
            Arr(r) = xm(i) '把姓名复制到数组Arr()中。
        End If
    Next
    'Range("a2").Resize(1, r) = Arr '填充到工作表
    Range("a2") = Join(Arr, ",")
End Sub

老师，我想知道Temp = Filter(Arr, xm(i)) 中为什么最大下标是-1时就是没有找到，我实在是没理解

syz105729913

哦，我终于想明白了，实在是太谢谢山老师了，让我对VBA中数组的用法有了一定的了解

之前一直不知道如何去理解数组呢

[em17]

tonyqingqing

感谢楼主为我们步入VBA之门所付出的辛苦

lin82

我也来学习

mikemok

如果这样都能不顶，那还是中国人吗？

[em17]

yjlxy

谢谢！很好的讲解

gfs57

山菊花老师：

我有一个15行2列二维数组：(271,"A";301,"B";329,"C";360,"D";413,"E";430,"F";458,"G";483,"H";575,"I";612,"J";646,"K";675,"L";758,"M";789,"N";861,"O")，数字表示行数，ABC……等表示行数所对应的文本。我想从A列的第23行开始，以后每隔20行对应填入文本。用这个数组来作条件判断，当行数＜＝271时，填入“A”；当行数＞271而＜＝301时，则填入“B”……请教山菊花老师，代码如何写？

山菊花

Sub test()
    Dim tj(1 To 15, 1 To 2) '声明数组,保存条件数据
    Dim wb(23 To 861, 1 To 1) '声明数组，保存程序结果
    Dim m%, nRow%, cTxt$
    For i = 1 To 15 '循环1至15行
        tj(i, 1) = Array(271, 301, 329, 360, 413, 430, 458, 483, 575, 612, 646, 675, 758, 789, 861)(i - 1) '给数组赋值
        tj(i, 2) = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O")(i - 1)
    Next
   
    For i = 23 To 861 Step 20 '循环
        If nRow < i Then
            m = m + 1 '计数器，记录当前应用条件数组(tj)的一维变量(行)
            nRow = tj(m, 1) '行号
            cTxt = tj(m, 2) '文本
        End If
        wb(i, 1) = cTxt
    Next
    Me.Range("a23:a861") = wb
End Sub

bGZja1s8.zip (18.38 KB, 下载次数: 188)

2008-6-10 23:28 上传

点击文件名下载附件
墙上那一串串红辣椒——数组入门讲座

gfs57

感谢超级版主！

还有几处地方不明白，请指教：

①　tj(i, 1) = Array(271, 301, 329, 360, 413, 430, 458, 483, 575, 612, 646, 675, 758, 789, 861)(i - 1) '给数组赋值
  　tj(i, 2) = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O")(i - 1)——为何要“(i - 1)”？

②　Range("a23:a861")是一个一维的连续区域，与“每隔20行对应填入文本”不符，修改了其它单元格的原有数据，不知如何改进？还请指教！