淘客微信发单机器人淘客号被封，微信淘客还做的下去吗？

来源：蜘蛛抓取(WebSpider) 时间：2017-07-26 10:15 标签： 淘客微信群发软件
查看: 240|回复: 3
如何提取号码明细中的小计数值
阅读权限10
在线时间 小时
想请教如何从“8月明细”中提取每个号码下面的“小计“数值”对应到我表1中间去由于明细表中每个号码下面的明细行数不一样，所以没法使用函数中特定的指定1行或者2行去统一提取
麻烦各位大神帮帮忙，我很急
16:46 上传
点击文件名下载附件
205.95 KB, 下载次数: 7
阅读权限10
在线时间 小时
麻烦好心人帮帮忙
阅读权限20
在线时间 小时
不明白什么意思,没有表达清楚
阅读权限95
在线时间 小时
=LOOKUP(1,0/([@Number]='8月'!A$1:A$11268),'8月'!C$2:C$11269)复制代码
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 2517|回复: 8
请教如何用公式提取指定的内容，整行数据到另一个表格中？
阅读权限20
在线时间 小时
& & & & & & & &
如何用公式提取Ａ和Ｃ列中有打√的整行数据到另一个表格中？效果见sheet2。
QQ图片37.png (4.87 KB, 下载次数: 9)
22:06 上传
(33.51 KB, 下载次数: 31)
22:05 上传
点击文件名下载附件
阅读权限90
在线时间 小时
Sub cdsr()
& & Dim arr
& & arr = Sheet1.Range(&a1&).CurrentRegion
& & For i = 4 To UBound(arr)
& && &&&If arr(i, 1) = &√& Or arr(i, 3) = &√& Then
& && && && &k = k + 1
& && && && &For j = 1 To UBound(arr, 2)
& && && && && & arr(k, j) = arr(i, j)
& && && && &Next
& && &&&End If
& & Next
& & Sheet3.Range(&a4:ah10000&) = &&
& & Sheet3.Range(&a4&).Resize(k, UBound(arr, 2)) = arr
End Sub
复制代码函数不好处理，VBA吧。
阅读权限90
在线时间 小时
& & & & & & & &
(47.03 KB, 下载次数: 29)
22:25 上传
点击文件名下载附件
阅读权限95
在线时间 小时
(39.94 KB, 下载次数: 12)
22:35 上传
点击文件名下载附件
阅读权限50
在线时间 小时
数组公式，
=INDEX(五区!A:A,SMALL(IF((五区!$A$4:$A$105=&√&)+(五区!$C$4:$C$105=&√&),ROW($4:$105),4^8),ROW($A1)))&&&
如果是数值或日期（也可归为数值）则需要去除公式中的&&&
阅读权限20
在线时间 小时
函数不好处理，VBA吧。
谢谢，可以实现了，假如我需要在另一个表格中提取数据到当前表格中要怎样修改呢？
如在“2016-01.xlsx”表格中的&五区&这一个sheet中提取。他们都在同一个目录下。
阅读权限90
在线时间 小时
谢谢，可以实现了，假如我需要在另一个表格中提取数据到当前表格中要怎样修改呢？
如在“2016-01.xlsx” ...Sub cdsr()
& & Dim wk As Workbook
& & Dim arr
& & Dim fn As String
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & fn = ThisWorkbook.Path & &\2016-01.xlsx&
& &
& & Set wk = Workbooks.Open(fn)
& & arr = Sheets(&五区&).Range(&a1&).CurrentRegion
& &
& & For i = 4 To UBound(arr)
& && &&&If arr(i, 1) = &√& Or arr(i, 3) = &√& Then
& && && && &k = k + 1
& && && && &For j = 1 To UBound(arr, 2)
& && && && && & arr(k, j) = arr(i, j)
& && && && &Next
& && &&&End If
& & Next
& &
& & wk.Close SaveChanges:=False
& &
& & Sheet3.Range(&a4:ah10000&) = &&
& & Sheet3.Range(&a4&).Resize(k, UBound(arr, 2)) = arr
& & Application.ScreenUpdating = True
& & Application.DisplayAlerts = True
End Sub
复制代码
阅读权限90
在线时间 小时
(53.68 KB, 下载次数: 12)
14:31 上传
点击文件名下载附件
阅读权限20
在线时间 小时
谢谢，非常感谢，比公式方便多了！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 淘客微信群发软件 的文章

 

随机推荐