有多个同样的文件，想删除其中单元格的值

cshzh

有多个相同结构的文件，B列和G列有名字，D列有I列有对应的成绩，想删除没名字对应的成绩，然后再关闭。

杨建营

把此文件放在需要删除数据的文件夹内，请楼主参考。

cshzh

杨建营 发表于 2024-1-17 12:22
把此文件放在需要删除数据的文件夹内，请楼主参考。

不好意思，我想修改一下却没搞懂，我又重新上传了图片及附件，能不能再指导一下

杨建营

cshzh 发表于 2024-1-17 14:51
不好意思，我想修改一下却没搞懂，我又重新上传了图片及附件，能不能再指导一下

请楼主参考。

cshzh

杨建营 发表于 2024-1-17 17:51
请楼主参考。

With Activesheet 这一句能不能换成指定哪一个表，因为一个文件中有好几个表，

杨建营

cshzh 发表于 2024-1-18 10:34
With Activesheet 这一句能不能换成指定哪一个表，因为一个文件中有好几个表，

可以把你要修改的表做一个数组，然后循环数组，只是效率慢点。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.18
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
6.     p = ThisWorkbook.Path & ""
   
7.     b = [{2,7}]
   
8.     For Each f In fso.GetFolder(p).Files
   
9.         If f.Name Like "*.xlsx" Then
   
10.             fn = fso.GetBaseName(f)
    
11.             Set wb = Workbooks.Open(f, 0)
    
12.             With wb.Sheets(1)
    
13.                 r = .Cells(Rows.Count, 1).End(3).Row
    
14.                 arr = .Range("a4:j" & r)
    
15.                 For x = 1 To 2
    
16.                     For i = 2 To UBound(arr)
    
17.                         If arr(i, b(x)) = Empty Then
    
18.                             arr(i, b(x) + 2) = ""
    
19.                             arr(i, b(x) + 3) = ""
    
20.                         End If
    
21.                     Next
    
22.                 Next
    
23.                 .Range("a4:j" & r) = arr
    
24.             End With
    
25.             wb.Close 1
    
26.         End If
    
27.     Next f
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "OK！"
    
30. End Sub
    

复制代码

ykcbf1100

这个简单，附件供参考。。。

cshzh

ykcbf1100 发表于 2024-1-18 20:24
这个简单，附件供参考。。。

你好，表中的成绩是引用其他表的数据，这样执行操作后发现公式都没了，能不能帮我修改一下呢

ykcbf1100

cshzh 发表于 2024-1-19 15:35
你好，表中的成绩是引用其他表的数据，这样执行操作后发现公式都没了，能不能帮我修改一下呢

你的附件中数据表也没有公式啊。