Question

怎么把表格sheet1里的某行的内容一一相应地读到sheet2的指定位置 求用VBA 做出来

http://tieba.baidu.com/p/1171308982

这个地址是我提的问题

Answer 1

上一个问题已经回答过你了，思路较为通用。当修改sheet2的各项位置时，不需要修改VBA，更不需要费神去想用什么规则对应单元格。

双击Sheet1的数据行,将这一行的关键字赋值到Sheet2。而Sheet2的其它单元格用Vlookup公式套用。

Sheet1的VBA输入如下代码
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("sheet2").Cells(2, 2) = Cells(Target.Row, 1)
Sheets("sheet2").Select
End Sub

Answer 2

用sheet1的SelectionChange事件：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <> 1 Then '首行是标题行，排除
Sheets(2).Range("d7").Value = Sheets(1).Cells(Target.Row, 2).Value '批号
Sheets(2).Range("j6").Value = Sheets(1).Cells(Target.Row, 2).Value '送样日期
Sheets(2).Range("j7").Value = Sheets(1).Cells(Target.Row, 3).Value '检验日期
Sheets(2).Range("j7").Value = Sheets(1).Cells(Target.Row, 3).Value '检验日期
'剩 下的自己填吧

End If
End Sub

追问

SelectionChange事件 在哪找到？

Answer 3

进VBA，复制下面到sheet1代码中('选A列任一单元格):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim row1
Dim x
If Target.Column = 1 Then
row1 = Target.Row
For x = 0 To 7
Sheet2.Cells((x Mod 4) + 2, ((x \ 4) + 1) * 2).Value = Sheet1.Cells(row1, x + 1).Value
Next x
End If
End Sub

追问

干什么 你复制前一个问题的答案 搞毛啊

我现在问的是 这个问题