对等更换数据问题

fangniuji

原代码要加个条件如A列和B列%上T刀序一样如A列T01C.0400中"C"字之前T01与B列中T1C0.0394S60.F160.H1500.中“C”字之前T1数值一样，并且大小一样，如A列T01C.0400“C”字后面数据0.0400   与  B列的T1C0.0394S60.F160.H1500.中“S”字之前数据和“C”之后0.0394，公差大小范围0.008算一样。才更换，否则提示“数据源有问题”，不更换。如果没改D，E列数据在A，B列可以合并，总之%以上数据T**要对等更换。 两边A B列%以上有含T数据 T1对T01C，或T01对T01 ，一定是一对的，一边少一个就不更换。

Option Explicit
Sub test()
Dim lastrow1 As Long
Dim lastrow2 As Long
Dim rng As Range
lastrow1 = Range("A" & Rows.Count).End(xlUp).Row
lastrow2 = Range("B" & Rows.Count).End(xlUp).Row
Range("B1:B" & lastrow2).Copy Range("C1")
Set rng = Range("A:A").Find("%", , , xlWhole)
Range("A" & rng.Row + 1 & ":A" & lastrow1).Copy Range("C" & lastrow2 + 1)
End Sub

上清宫主

把需求写详细点。年纪大了理解能力太差，没看懂

fangniuji

上清宫主 发表于 2012-11-26 16:47
把需求写详细点。年纪大了理解能力太差，没看懂

原代码要加个条件如A列和B列%上T刀序一样如A列T01C.0400中"C"字之前T01与B列中T1C0.0394S60.F160.H1500.中“C”字之前T1数值一样，并且大小一样，如A列T01C.0400“C”字后面数据0.0400   与  B列的T1C0.0394S60.F160.H1500.中“S”字之前数据和“C”之后0.0394，公差大小范围0.008算一样。才更换，否则提示“数据源有问题”，不更换。如果没改D，E列数据在A，B列可以合并，总之%以上数据T**要对等更换。 两边A B列%以上有含T数据 T1对T01C，或T01对T01 ，一定是一对的，一边少一个就不更换。

zjdh

看不懂！！