ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 555|回复: 0

VBA 代码问题 ,请高手指点一下啊

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-1-10 16:38 | 显示全部楼层 |阅读模式
mypath = "C:\Documents and Settings\Administrator\桌面\实验数据\"
myfile1 = Dir(mypath & "*商品销售统计*.xls")
Workbooks.Open mypath & myfile1
For Each i In Range("A1", Cells(3, 15))  '前三行,15列内找列名称
If i.Value = "商品名称" Then             '找到“商品名称”这列
Set a = Workbooks(myfile1).Sheets(1).Cells(Range(i.Address).Row + 1, Range(i.Address).Column) '定位名称下一行
Exit For
End If
Next i

For Each p In Range("A1", Cells(3, 15))  '前三行,15列内找列名称
If p.Value = "数量" Then             '找到“数量”这列
Set b = Workbooks(myfile1).Sheets(1).Cells(Range(p.Address).Row + 1, Range(p.Address).Column)  '定位数量下一行
Exit For
End If
Next p

For Each e In Range(b, Cells(Rows.Count, b.Column)) '转化成数字
e.Value = e.Value + 0                              '文本值 +0 可以转换成数字格式
If e.Value = 0 Then
Set t = Workbooks(myfile1).Sheets(1).Cells(Range(e.Address).Row - 1, Range(e.Address).Column)
Exit For
End If
Next e

myfile2 = Dir(mypath & "*仓库进销存变动表*.xls")
Workbooks.Open mypath & myfile2


Workbooks(myfile1).Sheets(1).Range(a.Value, Cells(t.Row, a.Column)).Copy      这句一直报错,请高手帮忙看看
Workbooks(myfile2).Sheets(1).Range(Cells(b.Row, b.Column + 14), Cells(t.Row, t.Column + 14)).PasteSpecial xlPasteValues
Workbooks(myfile1).Sheets(1).Range(b, t).Copy
Workbooks(myfile2).Sheets(1).Range(Cells(b.Row, b.Column + 15), Cells(t.Row, t.Column + 15)).PasteSpecial xlPasteValues

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-28 22:24 , Processed in 0.028275 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表