数据内插入符号

Peny2020

想各位帮帮忙，要求和想要的结果在附件里。我只会写到以下的代码，后继不会了，谢谢了。


Sub Fedex()

Dim a As Range

Set a = Range("A1:H" & Range("A65536").End(3).Row)
a.Select
Selection.AutoFilter
ActiveSheet.Range("A1:H" & Range("A65536").End(3).Row).AutoFilter Field:=7, Criteria1:="Air"

Range("D3:D" & Range("A65536").End(3).Row).SpecialCells (xlCellTypeVisible)


End Sub

ykcbf1100

用数组就可以了。

Peny2020

ykcbf1100 发表于 2023-2-1 14:40
用数组就可以了。

请问下面这个是什么意思啊？谢谢

    [l21:T1000] = Empty
    [l21].Resize(UBound(arr), UBound(arr, 2)) = arr

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("a3:h" & r)
   
7.         For i = 1 To UBound(arr)
   
8.             If arr(i, 7) = "Air" Then
   
9.                 arr(i, 4) = Left(arr(i, 4), 3) & "-" & Mid(arr(i, 4), 4)
   
10.             End If
    
11.             For j = 1 To UBound(arr, 2)
    
12.                 If arr(i, j) = "Not Applicable" Then
    
13.                     arr(i, j) = Empty
    
14.                 End If
    
15.             Next
    
16.         Next
    
17.         .Range("a3:h" & r) = arr
    
18.     End With
    
19. End Sub
    

复制代码

chxw68

参与一下。

tanglf188

练手，数据大用二楼的。

Peny2020

tanglf188 发表于 2023-2-1 15:15
练手，数据大用二楼的。

报错喔

Peny2020

chxw68 发表于 2023-2-1 15:12
参与一下。

可以了，感谢你的帮助。

tanglf188

Peny2020 发表于 2023-2-1 15:25
报错喔

第二行和第三行换下就可以了，刚才没测试，修改如下：

1. Sub test6()
   
2.     last = Sheet1.Range("G" & Rows.Count).End(xlUp).Row
   
3.     Sheet1.Range("A3:H" & last).Replace What:="Not Applicable", Replacement:=""
   
4.     For i = 3 To last
   
5.         valu = Sheet1.Cells(i, "D")
   
6.         If Len(valu) > 3 And Sheet1.Cells(i, "G") = "Air" Then
   
7.             Sheet1.Cells(i, "D") = Left(valu, 3) & "-" & Right(valu, Len(valu) - 3)
   
8.         End If
   
9.     Next
   
10. End Sub '
    

复制代码

ykcbf1100

Peny2020 发表于 2023-2-1 15:05
请问下面这个是什么意思啊？谢谢

    [l21:T1000] = Empty

第一句：清空l21:t1000区域；
第二句：把arr数组写到l21开始的区域。