<em>excel</em> <em>vba</em>读取内容到指定表的

cells(i,j).value
i为行号，j为列号。
如，需要从zhidaoA1到B10填写递增的数据，可以如版下代码：
Sub test()
Dim i As Integer, j As Integer
For i = 1 To 10 '第1行到第权10行
For j = 1 To 2 '第1列到第2列
Sheets("sheet1").Cells(i, j).Value = i * 10 + j 'sheet1为需要处理的表名
Next j
Next i
End Sub

Sub s()
    ct = 6
    r = 35
    C = "j"
    i = 6
    With Sheets("问度15结果问答")
        Do While .Cells(i, C) <> ""
            i = i + 1
        Loop
        For j = 1 To ct
            If Sheets("问15").Cells(r - 2, j * 10 - 9).Interior.Color = vbYellow Then
                .Cells(i, C) = Sheets("问15").Cells(r, j * 10 - 9)
                i = i + 1
            End If
        Next
    End With
End Sub

答：确百保Sheet1为活动度工作问表时，答运行下面回代码。答

Sub Demo()
    Dim MyRng As Range
    Dim DesRng As Range

    Set MyRng = Range("B6:G10")
    Set DesRng = Sheets("Sheet2").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)
    MyRng.Copy
    With DesRng
        .PasteSpecial xlPasteValues
        .Offset(0, -3).Resize(MyRng.Rows.Count, 1) = Range("F1")
        .Offset(0, -2).Resize(MyRng.Rows.Count, 1) = Range("B1")
        .Offset(0, -1).Resize(MyRng.Rows.Count, 1) = Range("B2")
    End With
    Application.CutCopyMode = False
End Sub

Sub s()
    ct = 6
    r = 32
    C = "j"
    i = 6
    With Sheets("问zhidao15结果")
        Do While .Cells(i, C) <> ""
            i = i + 1
        Loop
        For j = 1 To ct
            If Sheets("问15").Cells(r, j * 10 - 9).Interior.Color = vbYellow Then
                .Cells(i, C) = Sheets("问15").Cells(r, j * 10 - 9)
                i = i + 1
            End If
        Next
    End With
End Sub