[已解决]再求教：用宏代码转换数据

lijian8003

工作表“模版1”中：A列数据与B列数据一一对应，即A1对应B1，A2对应B2...
工作表“转换”中：若已知有A列-F列数据，如何用宏代码，根据模版1的数据对应关系，将A列-F列数据，转化为H列-M列数据？
上述例子是有限的行列，实际运用中有若干行列。

最佳答案

月排行榜 / 总排行榜

qh8600

2014-10-20 21:14

1. Sub demo()
   
2.     Dim a As Long, ar, d As Object, b As Long, br
   
3.     a = Sheets("模版1").Cells(Rows.Count, 1).End(xlUp).Row
   
4.     ar = Sheets("模版1").Range("a1:b" & a)
   
5.     Set d = CreateObject("Scripting.Dictionary")  
   
6.     For i = 1 To UBound(ar)
   
7.         d(ar(i, 1)) = "'" & ar(i, 2)
   
8.     Next
   
9.     b = Sheets("转换").Cells(Rows.Count, 1).End(xlUp).Row
   
10.     br = Sheets("转换").Range("a1:f" & b)
    
11.     For i = 1 To UBound(br)
    
12.         For j = 1 To UBound(br, 2)
    
13.             br(i, j) = d(br(i, j))
    
14.         Next
    
15.     Next
    
16.     Sheets("转换").Range("h1").Resize(UBound(br), UBound(br, 2)) = br
    
17. End Sub

复制代码

楼主试试

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim a As Long, ar, d As Object, b As Long, br
   
3.     a = Sheets("模版1").Cells(Rows.Count, 1).End(xlUp).Row
   
4.     ar = Sheets("模版1").Range("a1:b" & a)
   
5.     Set d = CreateObject("Scripting.Dictionary")  
   
6.     For i = 1 To UBound(ar)
   
7.         d(ar(i, 1)) = "'" & ar(i, 2)
   
8.     Next
   
9.     b = Sheets("转换").Cells(Rows.Count, 1).End(xlUp).Row
   
10.     br = Sheets("转换").Range("a1:f" & b)
    
11.     For i = 1 To UBound(br)
    
12.         For j = 1 To UBound(br, 2)
    
13.             br(i, j) = d(br(i, j))
    
14.         Next
    
15.     Next
    
16.     Sheets("转换").Range("h1").Resize(UBound(br), UBound(br, 2)) = br
    
17. End Sub

复制代码

楼主试试

qh8600

再请教：用宏代码转换数据.rar (15.21 KB, 下载次数: 10)

2014-10-20 21:17 上传

点击文件名下载附件