Данные загружаются в мой Excel в режиме реального времени из программы HTS.его значение меняется.поэтому я хочу, чтобы его данные автоматически копировались для вставки в другой лист2 и в каждую ячейку по одной переменной за раз.такие как
cells(1,1) = 200 cell(1,2) = alpa
cells(2,1) = 250 cell(2,2) = veta
cells(i,1) = ___ cell(i,2) = _____
...............................
и так далее.так как я могу набрать код для автоматической работы, как это?и вы должны знать, что его данные имеют некоторые формулы, и я хочу только значения. Его диапазон - это диапазон ("B2: E2"), не включая формулы.
Я попробовал этот код, но он не работает автоматически для заполнения ячейки.Это работает, только когда я щелкаю по изменяющимся значениям ячейки и только одной ячейке, а не диапазону.
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
этот код работает так, как вы должны видеть на картинке.
и я не хочу этого, но диапазон ("B2: E2") автоматически заполняет ячейку один за другим