excel - 将包含多于 X 行数据的工作表复制到另一个工作簿
问题描述
我在一个工作簿 (A) 中有 100 个工作表。我想将包含超过 35 行数据的工作表复制到工作簿 (B) 中。
我编写的代码复制了少于 35 行数据的工作表。
Sub Split_workbook()
Dim last_row as long
Dim sh as worksheet
For Each sh In Worksheets
last_row = cells(rows.count,"A").End(xlUp).Row
If last_row >= 35 Then
sh.Copy after:=workbooks("B.xlsx").Sheets(Workbooks("B.xlsx").Sheets.count)
End if
Workbooks("A.xlsx").activate
Next sh
End Sub
解决方案
复制工作表
- 从一个工作簿 ( )运行代码,将
ThisWorkbook
某些工作表从另一个打开的工作簿 ( ) 复制A.xlsx
到另一个(第三个)打开的工作簿 (B.xlsx
)。
编码
Option Explicit
Sub splitWorkbook()
Const ProcName As String = "splitWorkbook"
On Error GoTo clearError
Const srLimit As Long = 35
Dim swb As Workbook: Set swb = Workbooks("A.xlsx")
Dim srCount As Long: srCount = swb.Worksheets(1).Rows.Count
Dim dwb As Workbook: Set dwb = Workbooks("B.xlsx")
Dim sws As Worksheet
Dim sLastRow As Long
Dim dCount As Long
Application.ScreenUpdating = False
For Each sws In swb.Worksheets
sLastRow = sws.Cells(srCount, "A").End(xlUp).Row
If sLastRow >= srLimit Then
dCount = dCount + 1
sws.Copy After:=dwb.Sheets(dwb.Sheets.Count)
End If
Next sws
'swb.Close False
'dwb.Close True
ProcExit:
If Not Application.ScreenUpdating Then
Application.ScreenUpdating = True
End If
Select Case dCount
Case 0
MsgBox "No worksheets copied.", vbExclamation, "Fail?"
Case 1
MsgBox "Copied 1 worksheet.", vbInformation, "Success"
Case Else
MsgBox "Copied " & dCount & " worksheets.", vbInformation, "Success"
End Select
Exit Sub
clearError:
Debug.Print "'" & ProcName & "': Unexpected Error!" & vbLf _
& " " & "Run-time error '" & Err.Number & "':" & vbLf _
& " " & Err.Description
Resume ProcExit
End Sub
推荐阅读
- can-bus - 在 CAPL 脚本中添加信号值选择并存储在 CANalyzer 8.5 中的变量中?
- python - acc、loss、val_acc 和 val_loss 在每个 epoch 都相同
- ios - 如何在 Xcode 中使用 iOS 目标?
- sql-server - SQL Server 2016、SSMS 18.3 兼容性和数据库图
- javascript - Angular 8 以(列表详细信息)类型的设置将动态数据传递到激活的路由中
- c - 使用免费功能后数据仍然可用
- extjs - 延迟 Extjs 应用程序加载
- python - 使用 Flask 响应关闭 opencv 流的正确方法
- python-3.x - 将字符串转换为字符串列表
- javascript - 使用 Vue-Moment 时在哪里可以添加“moment.suppressDeprecationWarnings = true”?