UC知道EXCEL中VBA代码的错误
来源：百度知道 编辑：UC知道 时间：2024/06/28 04:30:13
这段代码的意思是想实现将表1中1个下拉列表中的值进行判断,根据查询单元格的值,将该条数据的后2位复制到表3和表4中.
可是问题在最后1个"黄7",其他的值都是按照代码传递到对应的表中的列,可是
"黄7"值却没传递过去,而程序运行正常,选"黄7"复制时一切正常,可是在对应的表里却没有数据,这是为什么? 感觉很奇怪,是我代码错误?还是是设置错误? 希望高手帮忙
Sheets("sheet1").Select
If Cells(6, "E") <> "" Then
Dim x%
If Cells(6, "D") = "特1" Then
Sheets("sheet1").Select
Range("E6,H6").Select
Selection.Copy
Sheets("sheet4").Select
x = Sheets("Sheet4").Cells(65536, 16).End(xlUp).Row
If Cells(x, 16) <> "" Then
x = x + 1
End If
Cells(x, 16).Select
ActiveSheet.Paste
Sheets
可是问题在最后1个"黄7",其他的值都是按照代码传递到对应的表中的列,可是
"黄7"值却没传递过去,而程序运行正常,选"黄7"复制时一切正常,可是在对应的表里却没有数据,这是为什么? 感觉很奇怪,是我代码错误?还是是设置错误? 希望高手帮忙
Sheets("sheet1").Select
If Cells(6, "E") <> "" Then
Dim x%
If Cells(6, "D") = "特1" Then
Sheets("sheet1").Select
Range("E6,H6").Select
Selection.Copy
Sheets("sheet4").Select
x = Sheets("Sheet4").Cells(65536, 16).End(xlUp).Row
If Cells(x, 16) <> "" Then
x = x + 1
End If
Cells(x, 16).Select
ActiveSheet.Paste
Sheets
为什么这么复杂呢，试试下面这个
=INDIRECT("sheet1!"&(ADDRESS(MATCH(A1,Sheet1!A1:A3),2,1,1)))
可以实现查找并复制单元格内容，当然如果截取字符串更没有问题。
注：sheet1中区域a1:a3放置数据源。