读取V领一个工作簿指定单元格指定区域数据

张劲松2024

把workbook("混凝土配料单")的sheet是（“汇总”）的（B4:J7）的数据填到workbook("出入库台账")的sheet是（“1”）的（B5:J8）

张劲松2024

各位大佬，急用，请伸援手

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.22
   
2.     Application.ScreenUpdating = False
   
3.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
4.     p = ThisWorkbook.Path & ""
   
5.     With Application.FileDialog(msoFileDialogFilePicker)
   
6.         .InitialFileName = p
   
7.         .Title = "请选择对应Excel文件"
   
8.         .AllowMultiSelect = False
   
9.         .Filters.Clear
   
10.         .Filters.Add "Excel文件", "*.xls*"
    
11.         If .Show Then f = .SelectedItems(1) Else Exit Sub
    
12.     End With
    
13.     Set wb = Workbooks.Open(f, 0)
    
14.     With wb.Sheets("汇总")
    
15.         r = .Cells(Rows.Count, 2).End(3).Row
    
16.         arr = .[a1].Resize(r, 10)
    
17.     End With
    
18.     wb.Close 0
    
19.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    
20.     For i = 4 To UBound(arr)
    
21.         If arr(i, 2) <> Empty Then
    
22.             m = m + 1
    
23.             brr(m, 1) = m
    
24.             For j = 2 To UBound(arr, 2)
    
25.                 brr(m, j) = arr(i, j)
    
26.             Next
    
27.         End If
    
28.     Next
    
29.     With sh
    
30.         .UsedRange.Offset(4).ClearContents
    
31.         .[a5].Resize(m, UBound(arr, 2)) = brr
    
32.     End With
    
33.     Application.ScreenUpdating = True
    
34.     MsgBox "OK！"
    
35. End Sub
    
36. 
    

复制代码

张劲松2024

谢谢ykcbf1100，太完美了！

lsc900707

张劲松2024 发表于 2024-7-22 08:28
谢谢ykcbf1100，太完美了！

右下角“评分”按钮看到没？

张劲松2024

ykcbf1100老大，这两天没有上网，刚看到，实在抱歉，我没有看到右下角“评分”按钮

ykcbf1100

张劲松2024 发表于 2024-7-25 11:44
ykcbf1100老大，这两天没有上网，刚看到，实在抱歉，我没有看到右下角“评分”按钮

每个楼层的右下角，有个评分的。

张劲松2024

ykcbf1100老大,已经+2分了

张劲松2024

ykcbf1100老大，再帮我解决一个问题，我的问题就彻底解决了！