向EXCEl VBA高手求助:分行分列数组筛选并输出
发布网友
发布时间:2022-05-29 20:20
我来回答
共4个回答
热心网友
时间:2023-11-21 06:06
这个有一定难度,我已经想到一个办法,今晚或者明天给你做出来。
好不容易完成了,点击计算按钮后各种组合列于H列,见附件。有疑问请联系
热心网友
时间:2023-11-21 06:07
没看懂,为什么2,7,18,25,28,29 3,8,17,24,27,30满足ABCDE=02211,abcdefg=1101120,?追问"2,7,18,25,28,29" 这六个数字符合:A列0个数字,B列2个数字,C列2个数字, D列1个数字,E列一个数字,同时满足a行1个数字,b行1个数字,C行0个数字,d行1个数字 , e行 1个数字,f行2个数字,g行0个数字。
"3,8,17,24,27,30"一样的道理。
难点就在行与列都有要求。
热心网友
时间:2023-11-21 06:07
应该要用递归
热心网友
时间:2023-11-21 06:08
你要这个是用来做什么的,可以说说吗
EXCEL VBA 单元格与数组中数据对比,返回值并导出1新表
简单点的做法就是,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查找并输出数据
首先打开开发工具,如果你的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 +...
EXCEL VBA 多关键字查询指定列数据并输出到只定列
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 '关键字在第二行第二列 '将关键字用+分开并保存...
excel表,用两个或多个条件筛选后,怎么快速提取另外一列的内容,按要求把...
如果用公式,可以用辅助列的方法,将符合条件的列进行行号标记。然后再用数组公式提取相应的行号。 当然也可以用数组公式。不过数据量有几万条的话,用数组公式运行速度可能会非常慢。这种情况建议用VBA法解决。思路的话,可以考虑循环判断,并把符合条件的放到相应的位置即可。跟手工筛选复制的效果一样。...
EXCEL 自动执行高级筛选,的VBA代码 麻烦请一行行的写 请带上注解!_百 ...
sub 筛选()dim arr,arr1()'定义两个数组 dim R&,x&,i&'定义三个整数变量 dim tt$'定义一个字符串变量 with sheets("sheet1")'指定sheet1工作表 tt=inputbox("请输入要查找的字符","请输入")'输入要查找的字符 r=.range("C65536").end(xlup).row'sheet1C列最后一个非空单元格行号...
excel函数或vba如何把一组数据分割n组中n组的数据?高分求助!
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...
Excel函数或VBA高手解决选择筛选或选择删多行
其实公式和VBA都不需要 只要高级筛选,删除即可 设置 星期几 星期一 星期三 星期五 星期六 这个是条件区域 就可以了!
EXCEL 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...
EXCEL VBA 单元格与数组中数据对比,返回值并导出1新表
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 ...
EXCEL数据筛选并输出列标题公式?
公式为(textjoin需office2019支持):=TEXTJOIN(",",,IF(A2:D2="N",A$1:D$1,""))数组公式,按ctrl+shift+enter产生花括号。如图所示: