向EXCEl VBA高手求助:分行分列数组筛选并输出

简单点的做法就是,b列前插入空白列,将a列以"、"分列,之后删除插入的列,另存为就可以了 一定要VBA的话 sub test()arr=range("a1:b" & Range("a65535").end(3).row)for i = 1 to ubound(arr)arr(i,1)=split(arr(i,1),"、")(0)next with workbooks.add .sheets(1).cells(1,1...

首先打开开发工具，如果你的excel没有百度一下设置一下就好了 右键项目，插入模块 在模块里面输入代码:Public Function getmydates(condition As Range, area As Range)Dim i Dim str As String For i = 0 To area.Cells.Rows.Count - 1 If InStr(area.Cells(i + 1, 2), condition.Formula +...

Option Explicit'数组下标从0开始 Option Base 0 '保存关键字的数组 Dim Keys() As String '按钮点击事件处理过程 Sub Search_Click()ClearResult Dim iIndex As Integer Dim iResultRow As Integer Dim bHasResult As Boolean bHasResult = False '关键字在第二行第二列 '将关键字用+分开并保存...

如果用公式，可以用辅助列的方法，将符合条件的列进行行号标记。然后再用数组公式提取相应的行号。 当然也可以用数组公式。不过数据量有几万条的话，用数组公式运行速度可能会非常慢。这种情况建议用VBA法解决。思路的话，可以考虑循环判断，并把符合条件的放到相应的位置即可。跟手工筛选复制的效果一样。...

sub 筛选()dim arr,arr1()'定义两个数组 dim R&,x&,i&'定义三个整数变量 dim tt$'定义一个字符串变量 with sheets("sheet1")'指定sheet1工作表 tt=inputbox("请输入要查找的字符","请输入")'输入要查找的字符 r=.range("C65536").end(xlup).row'sheet1C列最后一个非空单元格行号...

Sub test() Dim InCell As String '输入的单元格 Dim InElementNumber As Integer '需要重新定义每行的个数 Dim Aims_Arr() As String '存放分组后数据的数组 Dim RowNumber As Integer '原始数据个数 Dim GroupNumber As Integer '原始数据根据重新定义的个数能分几组 Dim In...

其实公式和VBA都不需要 只要高级筛选，删除即可 设置 星期几 星期一 星期三 星期五 星期六 这个是条件区域 就可以了！

if range("A:" & i).value>5 then '对A列进行筛选，这里的筛选条件是值大于5 Rows(i & ":" & i).EntireRow.Hidden = False '满足条件的取消行隐藏 range("B:" & i).value=range("A:" & i).value '操作B列，这里B列赋值为A列的值 else Rows(i & ":" & i).EntireRow...

myRow, 2)Next If myVsionNumber = "11.0" Then ActiveWorkbook.SaveAs Filename:=myFileName Else ActiveWorkbook.SaveAs Filename:=myFileName, FileFormat:=xlExcel8 End If ActiveWorkbook.Close End If Exit Sub ErrorHandler:MsgBox Err.Description, 48, Err.Number End Sub 运行宏 test ...

公式为（textjoin需office2019支持）：=TEXTJOIN("，",,IF(A2:D2="N",A$1:D$1,""))数组公式，按ctrl+shift+enter产生花括号。如图所示：