课表的拆分与合并

yangfx16900

chxw68 发表于 2019-3-14 10:59
应该跟第一张表一样，只是把诸多内容放到一个单元格内？

是的，我也是在学VBA，我就想把自己能想到的，通过VBA来实现，向你学习了，你的VBA学的真好，我数组这儿只有通过实例来学习与提高了，谢谢老师。

chxw68

1. Sub text()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("机房课表")
   
5.     arr = .Range("b3:p30")
   
6.     ReDim brr(1 To 7, 1 To 15)
   
7.     m = 0
   
8.     For i = 1 To UBound(arr) Step 4
   
9.       m = m + 1
   
10.       For j = 1 To UBound(arr, 2)
    
11.         For k = 1 To 4
    
12.           If Len(arr(i + k - 1, j)) <> 0 Then
    
13.             brr(m, j) = brr(m, j) & vbLf & arr(i + k - 1, j)
    
14.           End If
    
15.         Next
    
16.       Next
    
17.     Next
    
18.   End With
    
19.   For i = 1 To UBound(brr)
    
20.     For j = 1 To UBound(brr, 2)
    
21.       If Len(brr(i, j)) <> 0 Then
    
22.         brr(i, j) = Mid(brr(i, j), 2)
    
23.       End If
    
24.     Next
    
25.   Next
    
26.   With Worksheets("合并课程表")
    
27.     .Range("b3").Resize(UBound(brr), UBound(brr, 2)) = brr
    
28.   End With
    
29. End Sub
    
30. 
    

复制代码

chxw68

修改好了。

yangfx16900

chxw68 发表于 2019-3-14 11:28
修改好了。

太厉害了，真正的高手。

yangfx16900

chxw68 发表于 2019-3-14 11:27

老师好，有几个问题不太明白。一、在这四段代码中都声明了变量r,可是，在这四段代码中都看到r有什么作用。二、j、k、m等变量为什么不声明（或者说是定义）？

yangfx16900

yangfx16900 发表于 2019-3-15 08:24
老师好，有几个问题不太明白。一、在这四段代码中都声明了变量r,可是，在这四段代码中都看到r有什么作用 ...

老师好，有几个问题不太明白。一、在这四段代码中都声明了变量r,可是，在这四段代码中都没有看到r有什么作用 ...

chxw68

yangfx16900 发表于 2019-3-15 08:24
老师好，有几个问题不太明白。一、在这四段代码中都声明了变量r,可是，在这四段代码中都看到r有什么作用 ...

vba中允许不声明变量直接使用。

chxw68

yangfx16900 发表于 2019-3-15 08:24
老师好，有几个问题不太明白。一、在这四段代码中都声明了变量r,可是，在这四段代码中都看到r有什么作用 ...

有的代码我是整段复制过来的没有修改，加之VBA对声明变量要求不严，所以，有些变量定义了却没用，有些变量没定义却使用了，楼主可以一一定义，最好养成定义变量的习惯。

yangfx16900

chxw68 发表于 2019-3-15 10:22
有的代码我是整段复制过来的没有修改，加之VBA对声明变量要求不严，所以，有些变量定义了却没用，有些变 ...

老师很谦虚，也很真诚，谢谢你的帮助 ，以后向你多多请教。

yangfx16900

chxw68 发表于 2019-3-14 11:28
修改好了。

老师，我的本意可以参照我刚上传的文件，我不知如何实现。