如何根據(jù)條件將多個(gè)工作表中的行復(fù)制到新工作表中？
如何根據(jù)條件將多個(gè)工作表中的行復(fù)制到新工作表中？
假設(shè)您有一個(gè)包含三個(gè)工作表的工作簿，這些工作表的格式與下面的屏幕快照相同。 現(xiàn)在，您想要將這些工作表中的C列包含“已完成”文本的所有行復(fù)制到新工作表中。 您如何快速，輕松地解決此問題，而又不手動(dòng)一一復(fù)制和粘貼它們？
根據(jù)條件將多個(gè)工作表中的行復(fù)制到具有VBA代碼的新工作表中
根據(jù)條件將多個(gè)工作表中的行復(fù)制到具有VBA代碼的新工作表中下面的VBA代碼可以幫助您根據(jù)特定條件將工作簿中所有工作表中的特定行復(fù)制到新工作表中。 請(qǐng)這樣做：
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。
2。 點(diǎn)擊 插頁 > 模塊，然后將以下代碼粘貼到“模塊窗口”中。
VBA代碼：根據(jù)條件將多個(gè)工作表中的行復(fù)制到新工作表中
Public Sub CopyRows_ValuesAndNumberFormats()
Dim xWs As Worksheet
Dim xCWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Kutools for Excel"
xRStr = "Completed"
Set xCWs = ActiveWorkbook.Worksheets.Item(xStr)
If Not xCWs Is Nothing Then
xCWs.Delete
End If
Set xCWs = ActiveWorkbook.Worksheets.Add
xCWs.Name = xStr
xC = 1
For Each xWs In ActiveWorkbook.Worksheets
If xWs.Name <> xStr Then
Set xRg = xWs.Range("C:C")
Set xRg = Intersect(xRg, xWs.UsedRange)
For Each xRRg In xRg
If xRRg.Value = xRStr Then
xRRg.EntireRow.Copy
xCWs.Cells(xC, 1).PasteSpecial xlPasteValuesAndNumberFormats
xC = xC + 1
End If
Next xRRg
End If
Next xWs
Application.DisplayAlerts = True
End Sub
備注：在上面的代碼中：
文本 ”完成”在此 xRStr =“已完成” 腳本指示您要基于其復(fù)制行的特定條件； C：C 摘要可點(diǎn)擊此連結(jié) 設(shè)置xRg = xWs.Range（“ C：C”） 腳本指示條件所在的特定列。3。 然后按 F5 鍵運(yùn)行此代碼，并且具有特定條件的所有行已被復(fù)制并粘貼到當(dāng)前工作簿中名為 Kutools for Excel 的新工作表中?？唇貓D：
更多相關(guān)的拉取或復(fù)制數(shù)據(jù)文章：
使用Excel中的高級(jí)篩選器將數(shù)據(jù)復(fù)制到另一個(gè)工作表通常，我們可以快速應(yīng)用“高級(jí)篩選器”功能從同一工作表中的原始數(shù)據(jù)中提取數(shù)據(jù)。 但是，有時(shí)，當(dāng)您嘗試將篩選的結(jié)果復(fù)制到另一個(gè)工作表時(shí)，會(huì)收到以下警告消息。 在這種情況下，您如何在Excel中處理此任務(wù)？
根據(jù)Excel中的列條件將行復(fù)制到新表
如果列在Excel中包含特定的文本/值，則復(fù)制行
假設(shè)您要找出一列中包含特定文本或值的單元格，然后復(fù)制找到的單元格所在的整行，您該如何處理？ 在這里，我將介紹幾種方法來查找列是否包含特定的文本或值，然后在Excel中復(fù)制整個(gè)行。
最佳辦公效率工具
Kutools for Excel解決了您的大多數(shù)問題，并使您的生產(chǎn)率提高了80％
閱讀更多
功能齊全的30天免費(fèi)試用版... 采購...
Office Tab - 為 Office 帶來選項(xiàng)卡式界面，讓您的工作更加輕松
閱讀更多
功能齊全的30天免費(fèi)試用版... 采購...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
