数组法写入内容

天地一相

sdytsxd991122 发表于 2023-6-28 13:11
是这个意思？

1. arr = Sheet4.Cells(1, 1).CurrentRegion
   
2.    
   
3.     For c = 1 To UBound(arr, 2) - 2
   
4.          Sheet3.Cells(1, 3).Resize(UBound(arr), 1) = Application.WorksheetFunction.Index(arr, 0, c)
   
5.     For d = c + 1 To UBound(arr, 2) - 1
   
6.         Sheet3.Cells(1, 4).Resize(UBound(arr), 1) = Application.WorksheetFunction.Index(arr, 0, d)
   
7.     For e = d + 1 To UBound(arr, 2)
   
8.         Sheet3.Cells(1, 5).Resize(UBound(arr), 1) = Application.WorksheetFunction.Index(arr, 0, e)
   
9.    
   
10.     Calculate
    
11.    
    
12.     If Application.WorksheetFunction.CountBlank(Sheet2.Range("B2:B7")) < 6 Then
    
13.         For k = 2 To 7
    
14.         If Application.WorksheetFunction.CountBlank(Sheet2.Cells(k, "B")) < 1 Then
    
15.            n = n + 1
    
16.            Sheet1.Cells(n, 1).Value = Sheet3.Range("C1").Value & "-" & Sheet3.Range("D1").Value & "-" & Sheet3.Range("E1").Value
    
17.            Sheet1.Range(Sheet1.Cells(n, "B"), Sheet1.Cells(n, "AH")).Value = Sheet2.Range(Sheet2.Cells(k, "A"), Sheet2.Cells(k, "AG")).Value
    
18.         End If
    
19.         Next k
    
20.         End If
    
21.      Next e, d, c
    
22.       
    
23.     '后半部代码，arr = Sheet2.Cells(2, 1).CurrentRegion (行数不定，第2行起，列固定A:AG)。
    
24.     'brr = Sheet1.Cells(2, 1).CurrentRegion .(行数不定，第2行起，列固定A:AH，)
    
25.     '判断arr中符合条件的数据先写入数组，最后结束时一次性写入BRR.
    

复制代码

再谢，根据你的启发，改写了上半部代码，测试速度没改善。估计问题在下半部代码里。可否请你再瞅一瞅。请看代码：

全党

试试看，变通了一下，能不能凑合着用。

全党

Public n
Private Sub CommandButton1_Click()
Sheet1.Columns(3).ClearContents
n = n + 1
arr = Sheet2.Cells(1, 1).CurrentRegion
brr = Application.Index(arr, , n)
Sheet1.Range("c1").Resize(UBound(arr), 1) = brr
End Sub

天地一相

全党 发表于 2023-6-28 15:53
Public n
Private Sub CommandButton1_Click()
Sheet1.Columns(3).ClearContents

谢谢，看了下，应该能，有类似的办法回复了，请看11楼，有思路改写下半部代码吗？

sdytsxd991122

天地一相 发表于 2023-6-28 14:58
再谢，根据你的启发，改写了上半部代码，测试速度没改善。估计问题在下半部代码里。可否请你再瞅一瞅。 ...

不知道你的问题

天地一相

sdytsxd991122 发表于 2023-6-29 13:13
不知道你的问题

谢谢，我的问题是：代码里，数字标识1至2那段代码的功能，想用数组法实现。结果返回的语句写在标识3的位置。就是if往后的功能块想用数组法实现