求大神帮忙用VBA语言解决，表格见附件

calleynet2019

需要根据C2 输入的内容，将明细表里面对应内容的行数据复制到表1里面对应的位置。还望大神指点

扑腾

明细表的“方向”=固定格式表的“种类”？

calleynet2019

要的是 月  日 凭证的  号数   摘要  余额  其他不需要了   还请指点

zpy2

calleynet2019 发表于 2019-4-12 11:17
要的是 月  日 凭证的  号数   摘要  余额  其他不需要了   还请指点

余额直接复制？还是用重新计算的吧

calleynet2019

直接复制，多谢大神

zpy2

calleynet2019 发表于 2019-4-12 14:01
直接复制，多谢大神

http://5809c7f4.nat123.cc:15216/bsbm/pdo/eh2/a22/a2201/ledger/subLedger21.php?明细科目=智能SF6补气装置&日期=2018&find=&search=搜索
以前做的三栏明细账查询，但是格式和你的不一样。

calleynet2019

您这是用网页编辑的？我希望是用vba编辑的，而且你提供的，我修改不了原始数据。

5294915678

厉害了我的歌

小红花啊

Sub TEST()




Application.ScreenUpdating = False                                                                                                                                                                                                '关闭屏幕刷新
Application.DisplayAlerts = False                                                                                                                                                                                                     '关闭系统提示




Dim arr, n As Long

Sheets("固定格式").Range("A11:I46").ClearContents

n = Sheets("明细表").Range("A65533").End(xlUp).Row

arr = Sheets("明细表").Range("A2:K" & n).Value


K = 11

For i = 1 To UBound(arr)

   If arr(i, 6) = Sheets("固定格式").Range("C3").Value Then
   
      
            Sheets("固定格式").Cells(K, "A") = arr(i, 1)
            Sheets("固定格式").Cells(K, "B") = arr(i, 2)
            Sheets("固定格式").Cells(K, "C") = arr(i, 3)
            Sheets("固定格式").Cells(K, "D") = arr(i, 4)
            Sheets("固定格式").Cells(K, "E") = arr(i, 7)
            Sheets("固定格式").Cells(K, "I") = arr(i, 8)
              
           K = K + 1
           
     End If

  Next



Application.ScreenUpdating = True                                                                                                                                                                                                 '恢复屏幕刷新
Application.DisplayAlerts = True





End Sub

小红花啊

测试的附件如下，不知道能不能实现你要的效果