小编Gre*_*reg的帖子

我正在尝试将从非连续范围发布的数据放入单独工作表中的行中.在我构建非连续范围之前,这段代码完美无缺.我已经尝试了几个循环,但我尝试的任何东西都不会起作用.它不会复制远程数据.多年以来,我实际上已经完成了任何编码,而且我的重新学习曲线似乎阻碍了我......逻辑不是来找我.救命!

Sub UpdateLogWorksheet()

Dim historyWks As Worksheet
Dim inputWks As Worksheet

Dim nextRow As Long
Dim oCol As Long

Dim myCopy As Range
Dim myTest As Range
Dim myData As Range

Dim lRsp As Long

Set inputWks = Worksheets("Input")
Set historyWks = Worksheets("DataEntry")
oCol = 3 'order info is pasted on data sheet, starting in this column

'check for duplicate VIN in database
If inputWks.Range("CheckVIN") = True Then
  lRsp = MsgBox("VIN already in database. Update record?", vbQuestion + vbYesNo, "Duplicate …