生成VB代码:选择一个excel文件,将活页中所有含有25zero的特定值所在单元格找出,并将其所在列的所有数据复制并转制到新的活页中
时间: 2023-03-31 13:00:20 浏览: 76
你可以使用 VBA 代码来实现这个功能。首先,你需要打开 Excel 文件并选择要搜索的活页。然后,你可以使用 For 循环来遍历每个单元格,如果单元格中包含特定值 "25zero",则将其所在列的数据复制到一个数组中。最后,你可以将数组中的数据转置并将其粘贴到新的活页中。以下是示例代码:
Sub FindAndCopy()
Dim wb As Workbook
Dim ws As Worksheet
Dim newWs As Worksheet
Dim searchValue As String
Dim copyData() As Variant
Dim i As Long, j As Long, k As Long
'打开 Excel 文件并选择要搜索的活页
Set wb = ThisWorkbook
Set ws = wb.Sheets("Sheet1")
'设置要搜索的特定值
searchValue = "25zero"
'遍历每个单元格,查找包含特定值的单元格
For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
For j = 1 To ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
If ws.Cells(i, j).Value = searchValue Then
'将所在列的数据复制到数组中
ReDim Preserve copyData(1 To UBound(copyData) + 1)
For k = 1 To ws.Cells(ws.Rows.Count, j).End(xlUp).Row
copyData(UBound(copyData), k) = ws.Cells(k, j).Value
Next k
End If
Next j
Next i
'创建新的活页并将数组中的数据转置并粘贴到新的活页中
Set newWs = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
newWs.Name = "New Sheet"
newWs.Range("A1").Resize(UBound(copyData, 2), UBound(copyData)).Value = Application.Transpose(copyData)
End Sub
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)