如果只更改了一个单元格或区域(“b2:e2”)数据，如何将每个数据复制到另一个sheet.cell(i,1)，每次一个变量
提问于 2019-05-16 13:24:50
例如，在(B2: E2)中有外部数据，该变量本身一直在变化。并且，我想将它们复制到sheet2中，每个单元格一次一个变量。比如,
cells(1,1) = 200 cell(1,2) = alpa
cells(2,1) = 250 cell(2,2) = veta
cells(i,1) = ___ cell(i,2) = _____诸若此类。那么我如何输入代码才能像这样工作呢？如果我的英文打字很难理解，我很抱歉，因为我是韩国人，我不能流利地说，但是，我能听懂你的话。在我的国家，我找不到解决这个问题的确切方法。我希望你能帮我，谢谢。
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-05-16 13:52:39
使用以下代码，您可以将新值复制到sheet2的同一列中。
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws1 As Worksheet, ws2 As Worksheet
Dim ColNo As Long, ColLR As Long
With ThisWorkbook
Set ws1 = .Worksheets("Sheet1")
Set ws2 = .Worksheets("Sheet2")
End With
If Not Intersect(Target, ws1.Range("B2:E2")) Is Nothing And Target.Count = 1 Then
ColNo = Target.Column
With ws2
ColLR = .Cells(.Rows.Count, ColNo).End(xlUp).Row
.Cells(ColLR + 1, ColNo).Value = Target.Value
End With
End If
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56169707
复制
腾讯云开发者
