PHP expert |
|
Dat is ook toevallig, ik moest eergisteren ook een macro schrijven in excel op me werk voor de eerste keer. Als je VB kent, is dat echt kinderspel. Maar even ontopic. Ik vermoed dat je van B1:B65536 wilt of niet? Ik zal er eens een macro voor schrijven, binnen enkele uren zal je hem krijgen.
Sub check_row_B()
'
' check_row_B Macro
' Stijn Leenknegt
'
For i = 1 To 65535
v1 = Range("B" & i).Value
i = i + 1
v2 = Range("B" & i).Value
If v1 <> v2 Then
Rows(i & ":" & i).Select
Selection.Insert Shift:=x1Down
End If
i = i + 1
Next
End Sub
Sub check_row_B() ' ' check_row_B Macro ' Stijn Leenknegt ' For i = 1 To 65535 v1 = Range("B" & i).Value i = i + 1 v2 = Range("B" & i).Value If v1 <> v2 Then Rows(i & ":" & i).Select Selection.Insert Shift:=x1Down End If i = i + 1 Next End Sub
Een tip: Gebruik de macro recorder om bijvoorbeeld te weten te komen hoe je een row kan invoegen, hoe je een cel zijn inhoud kan opvragen etc. |