如何在数组里删除某列输出

ctjr

请教站内大神，目前有一组数据，我想根据条件输入，写好了一个代码，另一个代码不知道怎么写，把数组删除列贴到相应区域，这个要怎么做。模拟数据见下图。

附件
测试3.rar (13.84 KB, 下载次数: 1)

2021-2-27 00:05 上传

点击文件名下载附件

ctjr

我原先的代码

1.    Sub test3()
   
2.     arr = Cells(1, 1).CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
4.     For i = 1 To UBound(arr)
   
5.     If arr(i, 4) <> "??" Then
   
6.         k = k + 1
   
7.         For j = 1 To UBound(arr, 2)
   
8.         brr(k, j) = arr(i, j)
   
9.         Next
   
10.         End If
    
11.     Next
    
12.     Cells(1, 6).Resize(k, UBound(brr, 2)) = brr
    
13.    End Sub

复制代码

yuwd3

换个思路，另建一个数组就行。

A1233515

在原来代码的基础上，添加红框的内容

A1233515

附件供参考

y1983y

Sub test4()
    arr = Cells(1, 1).CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 2)
    For i = 1 To UBound(arr)
    If arr(i, 4) <> "??" Then
        k = k + 1
        brr(k, 1) = arr(i, 1)
        brr(k, 2) = arr(i, 4)
        Next
        End If
    Next
    Cells(1, 13).Resize(k, UBound(brr, 2)) = brr
   End Sub

microyip

1. Sub 获取非是的四列资料()
   
2. '与原代码接近
   
3.     Dim vData As Variant, nRow As Long, nFill As Long, nCol As Long
   
4.     vData = Cells(1, 1).CurrentRegion
   
5.     For nRow = 1 To UBound(vData)
   
6.         If vData(nRow, 4) <> "是" Then
   
7.             nFill = nFill + 1
   
8.             For nCol = 1 To UBound(vData, 2)
   
9.                 vData(nFill, nCol) = vData(nRow, nCol)
   
10.             Next
    
11.         End If
    
12.     Next
    
13.     [F:I].ClearContents
    
14.     If nFill > 0 Then [F1].Resize(nFill, UBound(vData, 2)) = vData
    
15. End Sub
    
16. Sub 获取是的两列资料()
    
17.     Dim vData As Variant, nRow As Long, nFill As Long, nCol As Long
    
18.     vData = Cells(1, 1).CurrentRegion
    
19.     For nRow = 1 To UBound(vData)
    
20.         If vData(nRow, 4) = "是" Then
    
21.             nFill = nFill + 1
    
22.             vData(nFill, 1) = vData(nRow, 1)
    
23.             vData(nFill, 2) = vData(nRow, 4)
    
24.         End If
    
25.     Next
    
26.     [L:M].ClearContents
    
27.     If nFill > 0 Then [L1].Resize(nFill, 2) = vData
    
28. End Sub

复制代码

ctjr

谢谢各位老师

likaiyihou

1.把原始数据装入字典；2.将绿色区域处理的值从字典中删除；3.绿色区域处理完毕，字典中剩余的数据即是黄色区域所需数据。