excel 数据实时筛选

_VEA_Doc · 发表于 2014-10-19 11:54

有上表sheet Index 填入信息将快递公司为中通的实时对应同步显示到 sheet中通快递领取单下如下图

怎么整求大神

wq0804 · 发表于 2014-10-19 13:09

附件呢。。。。。

zax010 · 发表于 2014-10-19 13:59

应该比较容易实现，上传附件吧。

_VEA_Doc · 发表于 2014-10-19 15:11

就是这个表格

_VEA_Doc · 发表于 2014-10-19 15:13

wq0804 发表于 2014-10-19 13:09
附件呢。。。。。

已附大神请帮忙整一下把

_VEA_Doc · 发表于 2014-10-19 15:13

zax010 发表于 2014-10-19 13:59
应该比较容易实现，上传附件吧。

已附大神请帮忙整一下把

zax010 · 发表于 2014-10-19 15:57

_VEA_Doc 发表于 2014-10-19 15:13
已附大神请帮忙整一下把

Sub zz()
arr = Sheet1.Range("A1").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 7)
For i = 1 To UBound(arr)
      If arr(i, 2) <> "" And arr(i, 2) = "中通" Then
         m = m + 1
         brr(m, 1) = m: brr(m, 2) = arr(i, 3): brr(m, 3) = arr(i, 4): brr(m, 4) = arr(i, 5)
         brr(m, 5) = arr(i, 7): brr(m, 6) = arr(i, 8): brr(m, 7) = arr(i, 9)
      End If
Next
Sheet2.[a3].Resize(m, 7) = brr
End Sub

zax010 · 发表于 2014-10-19 15:59

_VEA_Doc 发表于 2014-10-19 15:13
已附大神请帮忙整一下把

>>>>>>>>>>>>>>>>>

zax010 · 发表于 2014-10-19 16:00

_VEA_Doc 发表于 2014-10-19 15:13
已附大神请帮忙整一下把

>>>>>>>>>>>>>>>>>

中通快递领取单.rar (15.3 KB, 下载次数: )

_VEA_Doc · 发表于 2014-10-19 16:04

zax010 发表于 2014-10-19 16:00
>>>>>>>>>>>>>>>>>

能不能撇去按钮直接实时自动生成

		自动登录	找回密码
密码			免费注册

[求助] excel 数据实时筛选