[已解决]怎样用VBA来实现,谢谢啦!

cgm88888

将工作表<库存中转>的数据引用到"盘点标签",使物料代码 物料名称 规格型号 计量单位 数量 日期相对应,目前我是用VLOOKUP函数引用的,有10000多个数据要引用,每次打开工作薄很慢,怎样用VBA来实现,谢谢啦! ZwDYb4d7.rar (5.48 KB, 下载次数: 17)

2010-8-20 16:26 上传

点击文件名下载附件
怎样用VBA来实现,谢谢啦!

最佳答案

月排行榜 / 总排行榜

knifefox

2010-8-20 18:27

Sub test()
    Dim i As Long
    Dim x
    x = InputBox("请输入盘点标签的起始编号", "设定起始编号", 1)
    For i = 0 To ([A65536].End(xlUp).Row + 1) / 8 - 1
        With Sheets(2)
            Cells(Int(i / 2) * 16 + 3, 4 + 6 * (i Mod 2)).Value = i + x
            Cells(Int(i / 2) * 16 + 5, 2 + 6 * (i Mod 2)).Value = .Cells(i + x + 1, 2).Value
            Cells(Int(i / 2) * 16 + 6, 2 + 6 * (i Mod 2)).Value = .Cells(i + x + 1, 3).Value
            Cells(Int(i / 2) * 16 + 7, 2 + 6 * (i Mod 2)).Value = .Cells(i + x + 1, 4).Value
            Cells(Int(i / 2) * 16 + 8, 2 + 6 * (i Mod 2)).Value = .Cells(i + x + 1, 6).Value
            Cells(Int(i / 2) * 16 + 9, 2 + 6 * (i Mod 2)).Value = .Cells(i + x + 1, 5).Value
            Cells(Int(i / 2) * 16 + 9, 4 + 6 * (i Mod 2)).Value = .Cells(i + x + 1, 7).Value
        End With
    Next
End Sub

跳转到最佳答案楼层

zxc1152468

等着看

aelan2009

期待中...

knifefox

Sub test()
    Dim i As Long
    Dim x
    x = InputBox("请输入盘点标签的起始编号", "设定起始编号", 1)
    For i = 0 To ([A65536].End(xlUp).Row + 1) / 8 - 1
        With Sheets(2)
            Cells(Int(i / 2) * 16 + 3, 4 + 6 * (i Mod 2)).Value = i + x
            Cells(Int(i / 2) * 16 + 5, 2 + 6 * (i Mod 2)).Value = .Cells(i + x + 1, 2).Value
            Cells(Int(i / 2) * 16 + 6, 2 + 6 * (i Mod 2)).Value = .Cells(i + x + 1, 3).Value
            Cells(Int(i / 2) * 16 + 7, 2 + 6 * (i Mod 2)).Value = .Cells(i + x + 1, 4).Value
            Cells(Int(i / 2) * 16 + 8, 2 + 6 * (i Mod 2)).Value = .Cells(i + x + 1, 6).Value
            Cells(Int(i / 2) * 16 + 9, 2 + 6 * (i Mod 2)).Value = .Cells(i + x + 1, 5).Value
            Cells(Int(i / 2) * 16 + 9, 4 + 6 * (i Mod 2)).Value = .Cells(i + x + 1, 7).Value
        End With
    Next
End Sub

cgm88888

谢谢knifefox 超级版主，在电脑上好久不能回复，不知道手机上行不行。

cgm88888

奇怪，用手机回复什么问题都没有？电脑却不行了，真是怪事

knifefox

把你的ie的cookie清除一下

cgm88888

谢谢啦，我现在在外面，等回去再弄。