将值复制到最新工作表之后的新工作表中，如果为空，则删除列b

我只想复制运行macros的任何工作簿的最后一个表格的值（而不是公式），如果它是空的，则删除B列，并将其命名为新wirksheet“游戏”。 这是我的，它不工作=（。任何人都可以帮我吗？

Sub ArrumarTabela() ActiveSheet.Copy Cells.Copy Application.CutCopyMode = False ActiveSheet.Name = "Games" Range("A1").PasteSpecial Paste:=xlPasteValues Application.ScreenUpdating = False ActiveSheet.Name = "Games" Dim cl As Range For Each cl In Range("$B$2:$B" & Range("$B$65536").End(xlUp).Row) If cl = "" Then cl.EntireColumn.Delete Next cl Range("C1").Select Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove Application.ScreenUpdating = True End Sub 

Answer 1

这个修改会做你所需要的吗？

 Sub ArrumarTabela() ActiveSheet.Copy 'this will create a new workbook and a new sheet with current With ActiveSheet .Name = "Games" 'change new sheets name .Cells.Copy 'copy all cells .Range("A1").PasteSpecial Paste:=xlPasteValues 'paste only values .ScreenUpdating = False lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row 'last row? Set cl = .Range("B2:B" & lastrow).Find("", lookat:=xlWhole) 'find a blank cell in a range If Not cl Is Nothing Then cl.EntireColumn.Delete 'delete column if blank exists .Range("C1").EntireColumn.Insert 'insert new column belfore column C .ScreenUpdating = True End With End Sub