如何用vba代码查找并提取相对应的整行数据到新

  如何用vba代码查找并提取相对应的整行数据到新的工作表中,部分按行排,部分转置为列。

  如何用vba代码查找并提取相对应的整行数据到新的工作表中,部分按行排,部分转置为列。

  具体说明:Sheet1是原始数据,现在想在sheet2中的A2单元格内输入sheet1中首列的某ID号,实现提取该ID号所在行内各订户的数据转置到sheet2的B列中(从B4开始往下排);品名和单价提取到...

  具体说明:Sheet1是原始数据,现在想在sheet2中的A2单元格内输入sheet1中首列的某ID号,实现提取该ID号所在行内各订户的数据转置到sheet2的B列中(从B4开始往下排);品名和单价提取到第二行内(从B2往右排)。请高手帮忙。

  可选中1个或多个下面的关键词,搜索相关资料。也可直接点“搜索资料”搜索整个问题。

  展开全部在sheet2 的工作表标签上点击右键选查看代码,然后粘贴下面的代码,然后保存.返回sheet2工作表.只要在A2单元格输入有效的数据,就可以自动返回你要的结果.

  End Sub更多追问追答追问感谢你的回答。当粘贴代码后,出现了:运行时错误‘1004’应用程序定义或对象定义错误,

  如果sheet1的第一行是空行的话 会引起你说的错误.解决的办法 是修改

  把iv1改成有完整数据的行号.比如改成iv5 就是在第五行获取正确的最大列号.追问非常感谢您的帮助。运行正常了,问题正如您所述。目前还有两个问题烦请您赐教:1.在A2中输入sheet1中存在的正确ID代码,必须敲回车再返回A2,数据才能更新。能否实现敲回车数据更新?2、在A2中输入sheet1中不存在的ID代码,数据不更新,此状况时,能否实现 “该ID不存在”的提示框给予提醒;或者“品名、单价、数量”的对应数据框内为“空值”?谢谢!追答抱歉,没注意选错触发事件的类型了.用下面的代码.应该可以解决你说的两个问题

TAG标签: vba转置函数
Ctrl+D 将本页面保存为书签,全面了解最新资讯,方便快捷。