关于根据列，遍历工作表，复制的请求

luulibin

再次感谢各位大神，祝大神们新年快乐，恭喜发财



1.根据B列的名称“工行6438”
把F列用途，转入工行6438表里的摘要下，
把A列日期，转入工行6438表里的日期下，
把D列转账金额，转入工行6438表里的贷方下，

abc123281

文件已损坏了

luulibin

abc123281 发表于 2019-2-16 15:01
文件已损坏了

应该不会吧！

半世

没看懂你想干什么

luulibin

半世 发表于 2019-2-16 15:17
没看懂你想干什么

根据B列的数据把哪一行的数据统一的分到各个对应的表名里

半世

福建凯众电子表
A4=INDEX(打款记录!A:A,SMALL((打款记录!B:B<>"福建凯众电子有限公司")/1%%+ROW(打款记录!B:B),ROW(A1)))

B4=INDEX(打款记录!F:F,SMALL((打款记录!B:B<>"福建凯众电子有限公司")/1%%+ROW(打款记录!B:B),ROW(A1)))

重点
=INDEX(打款记录!F:F  你想显示哪一列就改成哪的列标   
SMALL((打款记录!B:B<>"福建凯众电子有限公司")    这个就是条件列也就是你说的B列,""中间的字就是条件
这个是值排列福建凯众电子有限公的的行
再有一个就是这是数组公式要Ctrl+Shift+Enter三键结束

这就跟公司员工花名册 离职  在职人员名单一个性质

donghui2363

刚学，试着写了一下
Sub 查找()
Dim w1 As Worksheet, w2 As Worksheet
Dim j, i
j = 4
Set w1 = Sheets("打款记录")
For Each w2 In Worksheets
If w2.Name <> "打款记录" Then
For i = 4 To Sheet1.Range("a65536").End(xlUp).Row
   
    If w1.Cells(i, 2) = w2.Name Then
        w2.Cells(j, 1) = w1.Cells(i, 1)
        w2.Cells(j, 2) = w1.Cells(i, 6)
        w2.Cells(j, 4) = w1.Cells(i, 4)
        j = j + 1
    End If
   
Next i
j = 4
End If
Next
End Sub

jjmysjg

重新上传一下文件吧，已损坏

luulibin

donghui2363 发表于 2019-2-16 20:25
刚学，试着写了一下
Sub 查找()
Dim w1 As Worksheet, w2 As Worksheet

能不能不覆盖一直往最后一行输入

donghui2363

没有覆盖啊