Hur går jag igenom rader tills det är tomt i Excel-kolumnen?
Här är en lång kolumn med data som innehåller några tomma celler, och du vill slinga genom raderna tills du möter den tomma cellen. I Excel finns det ingen inbyggd funktion som kan hantera det här jobbet, men jag kan introducera några makron för att göra dig en tjänst.
Slinga igenom rader tills de är tomma med VBA
Slinga igenom rader tills de är tomma med VBA
1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulernaoch klistra in under koden i det tomma skriptet.
VBA: Slinga tills den är tom
Sub Test1()
'UpdatebyExtendoffice20161222
Dim x As Integer
Application.ScreenUpdating = False
' Set numrows = number of rows of data.
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
' Select cell a1.
Range("A1").Select
' Establish "For" loop to loop "numrows" number of times.
For x = 1 To NumRows
' Insert your code here.
' Selects cell down 1 row from active cell.
ActiveCell.Offset(1, 0).Select
Next
Application.ScreenUpdating = True
End Sub
I koden är A1 den första cellen du vill slinga från, du kan ändra den efter behov.
3. Tryck F5 för att börja loopa kolumnen, då stannar markören vid den första tomma metoden.
Anmärkningar: Om du vill slinga igenom data tills du möter kontinuerliga tomma celler kan du använda denna makrokod.
Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
' Select cell A2, *first line of data*.
Dim xrg As Range
On Error Resume Next
Set xrg = Application.InputBox _
(Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
xrg.Cells(1, 1).Select
' Set Do loop to stop when two consecutive empty cells are reached.
Application.ScreenUpdating = False
Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
' Insert your code here.
'
' Step down 2 rows from present location.
ActiveCell.Offset(2, 0).Select
Loop
Application.ScreenUpdating = False
End Sub
Sedan måste du välja den första cellen du vill slinga från i Kutools för Excel dialog, klicka OK, sedan stannar markören i de första kontinuerliga tomma cellerna.
Kombinera enkelt flera ark / arbetsbok i ett ark eller arbetsbok
|
Att kombinera flera ark eller arbetsböcker till ett ark eller arbetsbok kan vara snedigt i Excel, men med Kombinera funktion i Kutools för Excel, du kan kombinera sammanfoga dussintals ark / arbetsböcker till ett ark eller arbetsbok, du kan också konsolidera arken i ett med flera klick. Klicka för en 30 dagars gratis provperiod med alla funktioner! |
Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. |
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!