VBA 数据添加

kuersensen

请教各位高手

想实现一个功能，在excel工作薄的第一个sheet页上做了一个按钮，第二个sheet页是数据存储页，通过在第一个sheet页中输入内容点击按钮实现内容插入到第二个sheet页最下面的空行，插入时需要判断是否有重复输入，重复的自动跳过。

目前写出的代码如下， 这里按钮添加在sheet2中，debug的时候发现rowNo2的值是对的，但是rowNo1取得公式中这个sheet1好像没起作用，所以取到的值不正确。

Private Sub Insert_Click()
Dim rowNo1, rowNo2, i As Integer
rowNo1 = Range("a" & Sheet1.Rows.Count).End(xlUp).Row + 1
rowNo2 = Range("a" & Sheet2.Rows.Count).End(xlUp).Row
For i = 2 To rowNo2 Step 1
    Sheet1.Cells(rowNo1, 1) = Sheet2.Cells(i, 1)
    Sheet1.Cells(rowNo1, 5) = Sheet2.Cells(i, 2)
    Sheet1.Cells(rowNo1, 6) = Sheet2.Cells(i, 3)
Next
MsgBox (rowNo1 & rowNo2)
End Sub

求高手指点行号取得以及重复判断的代码。
多谢指教！

Excel学徒123

1、rowNo2这个需要+1，前面那个用不着+1，理清逻辑关系，还有 你msgbox出来的是第一次取值的位置，数据添加到sheet2之后，如果需要得到最后一行的行号，需要重新计算rowNo2的值了2、重复判断的有很多种方法，字典是不错的选择，当然也可以调用工作表函数COUNTIF或者match函数，如果两个函数得到的结果都大于0了就表示已经存在了
仅提过思路，代码自己去写

kuersensen

Excel学徒123 发表于 2017-3-22 11:13
1、rowNo2这个需要+1，前面那个用不着+1，理清逻辑关系，还有 你msgbox出来的是第一次取值的位置，数据添加 ...

谢谢您提供思路

大灰狼1976

你的rowNo1和rowNo2都是取的同一张表的数据，没有意义。
方便上传附件看下吗