excel用vba变量语句从A表顺序依次取值，往B表有规律遍数顺序粘贴数据。
需要用VBA语句帮我从“功能主治”表，把a列，b列的值赋值到“中类表”的b列和c列，具体规则1、从“功能主治”ab列第2行开始，把这两个值赋值到“中类表”从b2，c2开始...
需要用VBA语句帮我从“功能主治”表，把a列，b列的值赋值到“中类表”的b列和c列，具体规则1、 从“功能主治”ab列第2行开始，把这两个值赋值到“中类表”从b2，c2开始一直往下循环进行12行，进行到b13，c13停止。2、 然后取“功能主治”ab列第3行数据，再从“中类表”b14，c14开始往下赋值12行，以此类推，直到“功能主治”ab列为空停止。
展开
1个回答
展开全部
就在中类表里的B2单元格输入公式：
=OFFSET(功能主治!A$2,INT((ROW(A1)-1)/12),0)
然后向右填充一列，再下拉到功能主治表总行数乘以12的长度，就可以了
如果你需要vba可以试试这个：
Sub chongfu()
Sheets("中类表").Range("B:C").ClearContents
n = WorksheetFunction.CountA(Sheets("功能主治").Range("A:A"))
k = 2
For i = 1 To n
For j = 1 To 12
Sheets("中类表").Cells(k, 2) = Sheets("功能主治").Cells(i + 1, 2).Value
Sheets("中类表").Cells(k, 3) = Sheets("功能主治").Cells(i + 1, 3).Value
k = k + 1
Next
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
