excel - VBA - 根据使用格式化的选定单元格值将数据拆分/提取到工作表中
问题描述
我在“主”表列 A:Z 中有数据(超过 60,000 条记录)。(隐藏表)
我还有一张“Form_Entry”,它是可见的,并且是一些按钮。在 Form_Entry 表中,单元格 E4 具有用户角色列表的下拉列表(主表列 L 唯一值列表)。
当用户从下拉菜单(E4)中选择角色并单击此处的创建按钮时,我想运行此宏,它将特定角色的所有数据拆分为具有与 Master 中相同格式的新工作表,并带有该用户的名称角色(E4.value)。如果用户尝试为已选择的用户角色创建按钮,则不允许这样做。
我从扩展办公室尝试了以下代码,看起来很棒,
Sub parse_data()
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
vcol = 12
Set ws = Sheets("Master sheet")
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = "A1:Z1"
titlerow = ws.Range(title).Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
For i = 2 To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
ws.Range("A" & titlerow & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A1")
Sheets(myarr(i) & "").Columns.AutoFit
Next
ws.AutoFilterMode = False
ws.Activate
End Sub
但是它将所有数据拆分为(所有角色)表(基于角色),但我只想要一个由用户选择的角色。
我尝试更改这段代码但出现错误
ws.Cells(1, icol) = "Unique"
而不是这个我试过
Dim id As String
id = ActiveSheet.Range("C4").Value
ws.Cells(1, icol) = id
解决方案
推荐阅读
- android - 创建一个 android 应用程序,其中有从另一个 android 应用程序更新的信息的蓝牙传输
- laravel - 如何使用方法尝试() - Laravel 7
- javascript - 当我们向卡片添加 3 个产品时,我想在产品名称中添加 x 和 3?
- oracle-apex - 区域刷新,jQuery
- javascript - 如何在 JavaScript 中反转二叉树?
- javascript - Javascript 功能检测模块对 Web Workers 的支持
- import - 将 nativescript-oauth2 导入 nativescript vue 项目时出错
- linux - 如何使用服务帐户凭据在 Linux 上运行 Azure 代理?
- node.js - Mongoose 没有显示某些集合的 mongodb 集合文档
- git - GitHub 新手:您的分支和“origin/master”已经分歧,分别有 1 和 2 个不同的提交。我该怎么办?