区域内的数据替换

hy7525

hy7525 发表于 2018-9-19 17:01
对于第二行如有空单元格,则不会替换

我改了一下,行了,谢谢您的热心帮助!

lsc900707

hy7525 发表于 2018-9-19 17:01
对于第二行如有空单元格,则不会替换

你的第二行不是标题吗？替换什么？

hy7525

banditson 发表于 2018-9-19 16:50
是不是这样

是的,您做的就是我想要的,非常感谢您的热心帮助!

hy7525

lsc900707 发表于 2018-9-19 17:04
你的第二行不是标题吗？替换什么？

实际表格中，第一行才是标题，我附上的文件里，第一行是处理前，不好意思，我没表达清楚，谢谢您！

lsc900707

hy7525 发表于 2018-9-19 18:51
实际表格中，第一行才是标题，我附上的文件里，第一行是处理前，不好意思，我没表达清楚，谢谢您！

那就修改一下：
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)

hy7525

lsc900707 发表于 2018-9-19 19:04
那就修改一下：
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)

您好，我把您写的代码放进了我找的代码里，运行出现了错误，如果只是单个宏（在其他工作表），运行是好的，如果可以，麻烦您帮我看看问题在哪？

1. Sub 批量操作()
   
2. Application.ScreenUpdating = False
   
3. Dim wb As Excel.Workbook
   
4. f = Dir(ThisWorkbook.Path & "\*.xls*") '生成查找EXCEL的目录,可以适应不同版本
   
5. Do While f <> "" '在目录中循环
   
6. If f <> ThisWorkbook.Name Then  '如果不是打开的工作簿
   
7. Set wb = Workbooks.Open(ThisWorkbook.Path & "" & f) '依次打开目录工作薄
   
8. With wb.Worksheets(1)
   
9. .Rows("1:6").Select
   
10.     Selection.Delete Shift:=xlUp
    
11.     X = Cells(Rows.Count, 1).End(xlUp).Row
    
12. Rows(X).Delete
    
13.    Range("A1:C1").Select
    
14.     With Selection
    
15.         .HorizontalAlignment = xlGeneral
    
16.         .VerticalAlignment = xlBottom
    
17.         .WrapText = False
    
18.         .Orientation = 0
    
19.         .AddIndent = False
    
20.         .IndentLevel = 0
    
21.         .ShrinkToFit = False
    
22.         .ReadingOrder = xlContext
    
23.         .MergeCells = True
    
24.     End With
    
25.     Selection.UnMerge
    
26.     Columns("A:A").Select
    
27.     Selection.Delete Shift:=xlToLeft
    
28.     Columns("B:B").Select
    
29.     Selection.Cut
    
30.     Columns("A:A").Select
    
31.     Selection.Insert Shift:=xlToRight
    
32.     Columns("A:A").Select
    
33.     Selection.Delete Shift:=xlToLeft
    
34. Cells.Select
    
35.     Selection.Replace What:="/", Replacement:="", LookAt:=xlPart, _
    
36.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    
37.         ReplaceFormat:=False
    
38.         Dim i As Integer
    
39. Dim y As Integer
    
40. y = [iv1].End(xlToLeft).Column
    
41. For i = y To 1 Step -1
    
42.      If Cells(65536, i).End(xlUp).Row = 2 Then
    
43.          Debug.Print i
    
44.          Columns(i).Delete
    
45.      End If
    
46. Next
    
47. Arr = [a2].CurrentRegion
    
48. 
    
49.     For m = 2 To UBound(Arr)
    
50.         For n = 2 To UBound(Arr, 2)
    
51.             If Len(Arr(m, n)) = 0 Then Arr(m, n) = -1
    
52.         Next
    
53.     Next
    
54.     [a2].CurrentRegion = Arr
    
55. Sheets.Add After:=ActiveSheet
    
56. Sheets("完成学分情况").Select
    
57. End With
    
58.      wb.Close True '关闭打开的工作薄
    
59.     End If
    
60.     f = Dir
    
61.     Loop '结束循环
    
62.     Application.ScreenUpdating = True
    
63. End Sub
    

复制代码

hy7525

lsc900707 发表于 2018-9-19 19:04
那就修改一下：
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)

您好，您帮我写的单个宏运行是能实现我的目标，但把它放进我原找的宏代码中却出错了，如果可以的话，麻烦您帮我看看还要怎么修改，谢谢！

hy7525

banditson 发表于 2018-9-19 16:50
是不是这样

您好，您帮我写的宏单个可以使用，并达到我要的效果，可把它放进我原来的宏里时却出错了，如果可以的话，麻烦您帮我看看怎么改，现在附上的附件里的文件是另一位大侠写的，也是类型出错。

lsc900707

hy7525 发表于 2018-9-19 23:24
您好，您帮我写的单个宏运行是能实现我的目标，但把它放进我原找的宏代码中却出错了，如果可以的话，麻烦 ...

一开始就上传这个附件不好吗？有时间再看看吧。

hy7525

lsc900707 发表于 2018-9-20 07:20
一开始就上传这个附件不好吗？有时间再看看吧。

已处理，另外写了一个宏。