VBA 拷贝并粘贴内容

由于有点学习得比较仓促，很多内容运用得不熟练，现在开始呢对部分问题试着自己解决一下，今天先来个简单的，后面慢慢加大难度。点击Sheet1里面的内容，自动显示Sheet2表格对应内容。

sheet1功能：

sheet2内容：

解决思路：

（1）用户点击Sheet1的B2到B6单元格时，触发SelectionChange事件，点击其他地方不触发；

（2）根据sheet1点击的内容，筛选sheet2里面B列数据

（3）把sheet2的数据复制到sheet1的显示区域。

（4）把复制到sheet1的序号重新排序

具体代码如下，可参考注释内容：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With Sheets("Sheet1")
        '如果点击的单元格和.Range("B2:B6")区域合并后还是和