（求助）如何用VBA实现自动填列某货品第一次销售月份以及数量？

轻风微澜

求助：
如何用VBA实现自动填列某货品第一次销售月份以及数量？
跪谢

fjmxwrs

vba1.zip (11.09 KB, 下载次数: 9)

2012-3-9 10:15 上传

点击文件名下载附件

hrpotter

1. Sub test()
   
2.     Dim i As Integer, j As Integer
   
3.     For i = 2 To Range("a65536").End(xlUp).Row
   
4.         j = Range("c" & i).End(xlToRight).Column
   
5.         Cells(i, 2) = Cells(1, j)
   
6.         Cells(i, 3) = Cells(i, j)
   
7.     Next
   
8. End Sub
   

复制代码

fjmxwrs

两种代码的一起
vba1.zip (13.76 KB, 下载次数: 7)

2012-3-9 10:23 上传

点击文件名下载附件