代码之家 › 专栏 › 技术社区 › Chopin

将值复制到单独的Excel工作表VBA

copy sorting vba excel

Chopin · 技术社区 · 6 年前

code 自动复制特定 cells 从主人那里 sheet 床单 . 当一个特定的 value 签订 Column B

细胞 在哪里在里面 B列 等于 Faults Raised 床单 有一个单独的 script 隐藏/取消隐藏 columns 基于其他各种 'values' B列 .

已输入, Columns B:C, AC:AE, BP 如图所示。但是当我试图自动复制时 B列 如图所示。我找不到 C, AC:AE 和 BP 复制?我做错什么了?

Option Explicit

Sub FilterAndCopy()
  Dim sht1 As Worksheet, sht2 As Worksheet

  Set sht1 = Sheets("SHIFT LOG")
  Set sht2 = Sheets("FAULTS RAISED")

  sht2.UsedRange.ClearContents
  Dim rng As Range

  With sht1.Cells(2, "B").CurrentRegion
      .Range("B:BP").EntireColumn.Hidden = False ' unhide columns
      .AutoFilter
      .AutoFilter 2, "Faults Raised"
      .SpecialCells(xlCellTypeVisible).Copy sht2.Cells(6, 2)
      .AutoFilter

      .Range("C:AA").EntireColumn.Hidden = True ' hide columns
      sht2.Range("C:AA").EntireColumn.Delete ' delete 'sht2' columns
      .Range("AE:BN").EntireColumn.Hidden = True ' hide columns
      sht2.Range("AE:BN").EntireColumn.Delete ' delete 'sht2' columns
  End With

末端接头

1 回复 | 直到 6 年前

user4039065 user4039065 6 年前

Option Explicit

Sub FilterAndCopy()
    Dim rng As Range, sht1 As Worksheet, sht2 As Worksheet

    Set sht1 = Worksheets("SHIFT LOG")
    Set sht2 = Worksheets("FAULTS RAISED")

    sht2.UsedRange.ClearContents

    With Intersect(sht1.Columns("B:BP"), sht1.UsedRange)
        .Cells.EntireColumn.Hidden = False ' unhide columns
        If .Parent.AutoFilterMode Then .Parent.AutoFilterMode = False
        'within B:BP, column B is the first column
        .AutoFilter field:=1, Criteria1:="Faults Raised"
        'within B:BP, Columns B:C, AC:AE, BP are referenced as .Columns A:B, AB:AD, BO
        .Range("A:B, AB:AD, BO:BO").Copy Destination:=sht2.Cells(6, "B")
        .Parent.AutoFilterMode = False

        'no need to delete what was never there
        'within B:BP, Columns C:AA, AE:BN, BP are referenced as .Columns B:Z, AD:BM
        .Range("B:Z").EntireColumn.Hidden = True ' hide columns
        .Range("AD:BM").EntireColumn.Hidden = True ' hide columns
    End With
End Sub

推荐文章

ZeroZ30o · std::包含原子的类的向量

6 年前

physlexic · 获取文件夹中文件的百分比

6 年前

SadeQ digitALLife · 如何将一个对象复制到另一个对象,而不更改Kotlin中的基本对象?

6 年前

Magix · 复制从抽象类派生的对象

6 年前

physlexic · 在目录之间随机移动多个文件

6 年前

pindare · 将文件从层次结构递归复制到单个平面文件夹

6 年前

Matt · Excel宏,用于复制某些单元格中的值并将其粘贴到下一个空单元格中

6 年前

Valentin B. · 如何让python脚本等待shutil。实际完成的移动?

6 年前

KayV · 将特定文件从目录和子目录复制到mac中的目标文件夹中

6 年前

AFoeee · 使用openpyxl和python3模拟Excel或LibreOffice Calc的复制功能(使用属性复制到新位置)

6 年前