问题描述
我在E,F中写了一些专栏。 E和F中的名字,I中的数字。在I列中,有一些带有数字的单元格,其余为空白。每当有一个数字时,我都应该从E1,F1复制名称,然后分别复制到C3和D3。我已经编写了一个代码,但是它无法正常运行。你能帮我吗?
Option Explicit
Sub copy()
Dim cell As Long
Dim nr As Integer
Dim rng As range
Dim i As Long
range("G1:G15").Select
Selection.CurrentRegion.Select
nr = Selection.Rows.Count
For i = 2 To nr
'test if cell is empty
If ActiveCell(i,7) = "" Then
'write to adjacent cell
ActiveCell = ActiveCell + 1
Else
ActiveCell.Offset(-3,-2).Value.copy ActiveCell.Offset(-3,0)
End If
Next i
End Sub
解决方法
#content {
margin-top: 50px;
margin-left: 310px;
margin-right: 10px;
overflow-y: auto;
}