[已解决]行列条件判断实现交叉定位，实现自动分布。VBA求助！

simonCJ

如题，请高手指导：

最佳答案

月排行榜 / 总排行榜

dsmch

2015-8-1 22:31

1. Sub Macro1()
   
2. For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row - 1 Step 2
   
3.     n = Application.Match(Cells(i, 6), Rows(2), 0) + 2
   
4.     Cells(i, n) = Cells(i, 4)
   
5. Next
   
6. End Sub

复制代码

跳转到最佳答案楼层

simonCJ

怎么没法上传附件了？

simonCJ

忘了，需要压缩！

dsmch

1. Sub Macro1()
   
2. For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row - 1 Step 2
   
3.     n = Application.Match(Cells(i, 6), Rows(2), 0) + 2
   
4.     Cells(i, n) = Cells(i, 4)
   
5. Next
   
6. End Sub

复制代码

simonCJ

太感谢楼上了，帮我解决 了好几个问题。我今天也写了这个代码，看来还得加油啊，思路完全是另外一个，写了很多行，结果还没成功。