Note: The other languages of the website are Google-translated. Back to English

Hur automatiskt infoga rad baserat på cellvärde i Excel?

doc-insert-row-based-on-value-1
Antag att du har en rad data och att du automatiskt vill infoga tomma rader ovanför eller under ett visst värde i Excel, till exempel automatiskt infoga rader under nollvärde enligt nedanstående skärmdump. I Excel finns det inget direkt sätt att lösa denna uppgift, men jag kan införa en makrokod för dig att automatiskt infoga rader baserat på ett visst värde i Excel.
Infoga raden nedan baserat på cellvärde med VBA

Infoga raden ovan baserat på cellvärde med Kutools för Excel bra idé3

Så här infogar du rad baserat på cellvärde genom att köra VBA:

1. Tryck Alt + F11 tangenter samtidigt, och a Microsoft Visual Basic för applikationer fönstret dyker upp.

2. klick Insert > Modulernaoch klistra sedan in under VBA-koden till poppningen Modulerna fönster.

VBA: Infoga raden nedan baserat på cellvärdet.

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3. klick F5 nyckeln eller run -knappen dyker en dialogruta ut och välj kolumnen innehåller noll. Se skärmdump:
doc-insert-row-based-on-value-2

4. klick OK. Därefter infogas tomma rader under nollvärdet.
doc-insert-row-based-on-value-3

Tips:

1. Om du vill infoga rader baserat på annat värde kan du ändra 0 till vilket värde du vill ha i VBA: Om Rng.Value = "0" Då.

2. Om du vill infoga rader över noll eller annat värde kan du använda nedanstående vba-kod.

VBA: Infoga rad över nollvärde:

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

doc-insert-row-based-on-value-4


Om du inte känner till VBA kan du prova Kutools för Excel's Välj specifika celler och sätt sedan in rader ovan.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

När du har installerat Kutools för Excel, gör så här:(Gratis nedladdning Kutools för Excel nu!)

1. Välj listan du vill ta reda på de specifika cellerna från och klicka på Kutools > Välja > Välj specifika celler. Se skärmdump:
doc infoga rad baserat på värde 9

2. Kontrollera i poppdialogen Hela raden och välj sedan lika från Specifik typ och ange sedan det värde du vill hitta i rätt textruta. Se skärmdump:
doc infoga rad baserat på värde 6

3. klick Ok, och en dialogruta dyker upp för att påminna dig om antalet valda rader, bara stäng den.

4. Placera markören på en markerad rad och högerklicka för att välja Insert från snabbmenyn. Se skärmdump:
doc infoga rad baserat på värde 7

Nu infogas raderna ovan baserat på ett specifikt värde.
doc infoga rad baserat på värde 8


Relativa artiklar:


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

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!
officetab botten
Sortera kommentarer efter
Kommentarer (43)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Jag vill klistra in specifikt innehåll under cellen nedan. Hur gör man det? Istället för tom rad vill jag infoga värde i några kolumner.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag vill infoga flera rader baserat på värdet Ex: Jag vill infoga 1 tom rad under cellen med värdet 2, 2 rader under cellen med värdet 3, 3 rader under cellen med värdet 4 och så vidare Kan du snälla hjälp mig med detta?
Denna kommentar minimerades av moderatoren på webbplatsen
Har du någonsin fått svar på detta? Jag försöker göra samma sak.

Har en lista över anställda med # veckors semester de får. Jag vill infoga en rad för varje vecka. Det kommer att vara 1, 2 eller 3 rader beroende på hur mycket tid de har tjänat. #s 1 2 3 finns redan i mitt kalkylark.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag vill infoga rader baserat på en räkning med hjälp av ett cellvärde i ett kalkylblad och infoga rader i ett annat kalkylblad.
Denna kommentar minimerades av moderatoren på webbplatsen
Tack vare ditt meddelande. Men kan du beskriva din fråga med mer detaljer? Vilka rader vill du infoga? Tom? Och var vill du infoga i arket? Om du kan, ge mig lite skärmdump. Tack.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag älskar dig. Tack.
Denna kommentar minimerades av moderatoren på webbplatsen
Det var fantastiskt!!. Tack mannen.
Denna kommentar minimerades av moderatoren på webbplatsen
Hur kan jag infoga mer än en rad?
Denna kommentar minimerades av moderatoren på webbplatsen
Du kan prova denna VBA

Sub BlankLine()
'Uppdatering senast 20150203
Dim Rng som intervall
Dim WorkRng As Range
Dim xInsertNum As Long
' Vid Fel Resume Next
xTitleId = "Kutools för Excel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Om WorkRng är ingenting, avsluta Sub
xInsertNum = Application.InputBox("Antalet tomma rader du vill infoga ", xTitleId, Typ:=1)
Om xInsertNum = False Då
MsgBox " Antalet tomma rader du vill infoga ", vbInformation, xTitleId
Exit Sub
End If
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
För xRowIndex = xLastRow Till 1 Steg -1
Set Rng = WorkRng.Range("A" & xRowIndex)
Om Rng.Value = "0" Då
Rng.Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
End If
Nästa
Application.ScreenUpdating = True
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
om du vill infoga tomma rader nedan, prova detta

Sub BlankLine()
'Uppdatering senast 20150203
Dim Rng som intervall
Dim WorkRng As Range
Dim xInsertNum As Long
' Vid Fel Resume Next
xTitleId = "Kutools för Excel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Om WorkRng är ingenting, avsluta Sub
xInsertNum = Application.InputBox("Antalet tomma rader du vill infoga", xTitleId, Typ:=1)
Om xInsertNum = False Då
MsgBox " Antalet tomma rader du vill infoga ", vbInformation, xTitleId
Exit Sub
End If
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
För xRowIndex = xLastRow Till 1 Steg -1
Set Rng = WorkRng.Range("A" & xRowIndex)
Om Rng.Value = "0" Då
Rng.Offset(1, 0).Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
End If
Nästa
Application.ScreenUpdating = True
End Sub

Den nedanför är att infoga rader ovanför.
Denna kommentar minimerades av moderatoren på webbplatsen
HI Sunny, detta makro fungerar perfekt för mig; Jag var bara tvungen att ändra antalet rader till 30 och ändra 0:an till texten: "Utgående balans". Men nu vill jag kopiera och klistra in ett urval av celler som är 30 rader höga i de 30 tomma raderna som precis infogades av detta makro. Kan du föreslå ett nytt makro (eller ett tillägg till detta) för att kopiera och klistra in ett intervall i varje rad med 30 tomma rader. Jag har döpt intervallet för att kopiera och klistra in "mall".
Denna kommentar minimerades av moderatoren på webbplatsen
Jag behöver enorm hjälp i detta ämne. Jag har 2 kolumner, den 1:a har jag min datatid 01/01/2016 05:00:00, dagar/månader/år timme/minut/sekunder och i 2:a kolumnen respektive data kopplade till tiden.

Mitt problem är att jag vill lägga till datatid mellan raderna eftersom jag har dagsluckor. 1:a raden är 01/01/2016 och 2:a raden har till exempel 10/01/2016, så jag har 9 dagar. och den koden fungerar inte för mig.

Ser fram emot att få lite feedback, tack! Tack
Denna kommentar minimerades av moderatoren på webbplatsen
Du kan prova denna VBA

Sub InsertValueBetween()
'Uppdatering 20130825
Dim WorkRng As Range
Dim Rng som intervall
Dim outArr som variant
Dim dic som variant
Set dic = CreateObject("Scripting.Dictionary")
'Om fel återuppta nästa
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
intervall = num2 - num1
ReDim outArr(1 till intervall + 1, 1 till 2)
För varje Rng I WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Nästa
För i = 0 Till intervall
outArr(i + 1, 1) = i + num1
Om dic.Exists(i + num1) Då
outArr(i + 1, 2) = dic(i + num1)
annars
outArr(i + 1, 2) = ""
End If
Nästa
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Värde = outArr
.Välj
Sluta med
End Sub


Eller om du har Kutools för Excel kan du prova den här funktionen:
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket, jag har provat båda, den första eftersom jag har ungefär 1 rader med data, jag gör det för alla 500 raderna och gör ingenting, jag tror att det kanske har en begränsning på raderna att använda, och när jag väljer bara de första 500 raderna, till exempel, skapar det inte de saknade raderna, utan ersätter raderna för de saknade data.

Ett annat problem som jag har är att min tidsdata också har Dag/Månad/År HH: MM: SS
Denna kommentar minimerades av moderatoren på webbplatsen
Från 2 till 3, skapar den saknade data som jag vill ha ok, men värdet av 03/01/2016 elimineras och det finns en del tidsdata som elimineras något som jag inte vill ha heller
Denna kommentar minimerades av moderatoren på webbplatsen
Ledsen att VBA-koden inte hjälpte dig, jag kan inte hitta metoden som kan fungera för datum- och tidsformat. Om du hittar lösningen till slut, kan du berätta för mig? Tack.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej igen Sunny, jag lyckades redigera koden till detta (jag ändrar num1-raden till A2 och With WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2) ):


Sub InsertValueBetween()
'Uppdatering 20130825
Dim WorkRng As Range
Dim Rng som intervall
Dim outArr som variant
Dim dic som variant
Set dic = CreateObject("Scripting.Dictionary")
'Om fel återuppta nästa
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A2").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
intervall = num2 - num1
ReDim outArr(1 till intervall + 1, 1 till 2)
För varje Rng I WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Nästa
För i = 0 Till intervall
outArr(i + 1, 1) = i + num1
Om dic.Exists(i + num1) Då
outArr(i + 1, 2) = dic(i + num1)
annars
outArr(i + 1, 2) = ""
End If
Nästa
With WorkRng.Range("A2:A100000"). Ändra storlek(UBound(outArr, 1), UBound(outArr, 2))
.Värde = outArr
.Välj
Sluta med
End Sub



Jag visar dig graferna, det fungerar inte till 100 % eftersom det inte skapar tiden från A1 till A2
Denna kommentar minimerades av moderatoren på webbplatsen
Här är min fråga och det är en mycket svår fråga antar jag .. finns det en vba-kod som lägger till en ny rad under en filtrerad kolumn och kopierar bara de tre första cellerna till den nya raden som lagts till och fortsätter att göra det tills användaren slutar trycka "enter" och avfiltrera de filtrerade cellerna?
Denna kommentar minimerades av moderatoren på webbplatsen
Din fråga är lite svår och komplex, du kan placera frågan i vårt forum, kanske någon kan svara dig. https://www.extendoffice.com/forum.html
Denna kommentar minimerades av moderatoren på webbplatsen
hej jag vill bara fråga hur man lägger till rad om koden är att lägga till rad ska göras när en cell redan har data (det är för en excel-arbetsbok med många ark :) Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
kanske den här vba-koden kan hjälpa dig. Det kommer att lägga till rader om ovanstående rad inte är tom

Sub helping()
Dim count As Long
För count = ActiveSheet.UsedRange.Rows.count To 1 Step -1
If Information.IsEmpty(Cells(count, 1)) = False Then Rows(count + 1).Insert
Nästa räkning
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag försöker använda den här koden för att ange en rad när de första 4 siffrorna i en cell ändras (om det ens är möjligt)

till exempel,
2222A
2222B
2223K


raden kommer att infogas efter 2222B eftersom den tredje siffran är en 3 och inte en 3

Tack hörni!!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Tack för detta, men jag har ett annat scenario där jag behöver infoga en cinglecell under värdet som inte är noll. Uppskattar alla förslag.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Gina, jag hittade precis koden för att infoga en tom rad ovanför cellen som inte är tom, någon kanske kan justera den för att möta dina behov.

Sub Insert_Rows()
Dim LR As Long, r As Long

Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
För r = LR Till 1 Steg -1
Om Len(Range("A" & r).Värde) > 0 Då
Rader(r).Infoga
End If
Nästa r
Application.ScreenUpdating = True
End Sub

komma från https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, detta är till stor hjälp. Tänk om jag ville lägga till två rader nedan och jag ville ha fler värden. Till exempel vill jag lägga till två rader efter värdet 26/04/2019 och sedan två rader efter 03/04/2019, och listan fortsätter. Hur fortsätter jag att lägga till i vba? Tyvärr är jag fortfarande nybörjare. Tack på förhand.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Safa, du kanske kan prova Kutools verktyg för att infoga tomma rader/kolumner.
Denna kommentar minimerades av moderatoren på webbplatsen
Sub BlankLine()
'Uppdatering senast 20150203
Dim Rng som intervall
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
För xRowIndex = xLastRow Till 1 Steg - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
Om Rng.Value = "0" Då
Rng.EntireRow.Insert Shift: = xlDown
End If
Nästa
Application.ScreenUpdating = True
End Sub


Jag behöver detta för att fungera varje gång jag lägger något i cellen, och även med fler variabler. Vad jag menar är att om jag lägger 2 i cellen behöver jag den för att infoga 2 rader och inte bara 1.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag behöver makrot för att lägga till rader baserat på en kvantitetskolumn där om antalet är större än 1, infogar det antalet rader -1. Om kvantiteten är 5 infogar den 4 rader under den och fyller i data och ändrar den ropade mängden från 5 till 1 varje rad. Hoppa över allt antal 1.
Denna kommentar minimerades av moderatoren på webbplatsen
Berätta för mig koden där jag vill lägga till ett visst antal rader baserat på ett cellvärde. till exempel, om cellen innehåller siffran 18, ska automatiskt 18 rader läggas till där jag vill och resten av tabellen/cellen ska flyttas nedåt.
Denna kommentar minimerades av moderatoren på webbplatsen
Stort tack för detta, verkligen en enorm tidsbesparing. Skulle det vara möjligt att lägga till någon kod som gör att jag kan infoga lite text i den nya raden. Till exempel infogar jag nya rader baserat på målvärdet 'x', sedan vill jag lägga till textvärdet 'y' i cellen under målvärdet 'x'. Är detta möjligt?
Denna kommentar minimerades av moderatoren på webbplatsen
Hallå. Makrot fungerar för mig men finns det något sätt att alltid ha intervallet/parametrarna inställda på kolumn J utan att inmatningsrutan kommer upp alls? Jag skulle vilja att den hoppar över steget i inmatningsrutan som kommer upp. Jag har också sett till att direkt före detta makro att den sista raden i mitt tidigare makro är Range("J:J"). Välj för att se till att hela J-kolumnen redan är markerad.
Detta är vad jag har använt hittills.

Dim Rng som intervall
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Klicka på OK för att fortsätta"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Skicka nycklar "~"
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
För xRowIndex = xLastRow Till 1 Steg -1
Set Rng = WorkRng.Range("A" & xRowIndex)
Om Rng.Value = "Ny GMS-linje" Då
Rng.EntireRow.Insert Shift:=xlDown
End If
Nästa


Jag har försökt experimentera med kommandot SendKeys "~" mellan några av stegen för att försöka få den att trycka på enter automatiskt när inmatningsrutan kommer upp men det har inte heller fungerat. Jag var inte säker på exakt var jag skulle använda kommandot SendKeys i makrot eller om det ens skulle fungera med en inmatningsruta!
Denna kommentar minimerades av moderatoren på webbplatsen
snälla hjälp mig att ha en data. Jag har en månads tidsdata, eftersom jag måste infoga en tom rad enligt escape-tiden
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, hr.babu08, förlåt att svaret är sent. Jag antar att du vill infoga tomma rader eller göra en markering för de saknade sekvensdata, i så fall kan du prova Kutools för Excels funktionen Hitta saknade sekvensnummer.Här är handledningen om funktionen: https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf du vill ha andra metoder för att infoga tomma rader för saknad sekvens, besök:https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
Kan denna marco användas/förändras för färgade celler?
Jag måste infoga minst 10 rader ovanför slutet av varje serie som är färgade.
Thx!
Denna kommentar minimerades av moderatoren på webbplatsen
Jag behöver lägga till särskilda rader med värden i dem för specifikt cellinnehåll, men är inte säker på hur man gör det utan att behöva göra det manuellt i över 3800+ rader

Ex: A1 = Nod1
Jag måste ha en rad infogat och den för att ange värdet Scanner
Ange en annan rad och ange värdet Printer
ytterligare en rad med värde CD.
etc.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Chris, här är en VBA som kan hjälpa dig att automatiskt infoga tre rader (skanner, skrivare, CD) när värdet är lika med Node1.
Sub BlankLine()
'ByExtendoffice
Dim Rng As Range

Dim WorkRng As Range

Dim xRngI As Range

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Select a range", xTitleId, WorkRng.Address, Type:=8)

Set WorkRng = WorkRng.Columns(1)

xLastRow = WorkRng.Rows.Count

Application.ScreenUpdating = False

For xRowIndex = xLastRow To 1 Step -1

  Set Rng = WorkRng.Range("A" & xRowIndex)

  If Rng.Value = "Node1" Then

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).Value = "Scanner"

    Rng.Offset(2, 0).Value = "Printer"

    Rng.Offset(3, 0).Value = "CD"

  End If

Next

Application.ScreenUpdating = True

End Sub

Vänligen meddela mig om det fungerar för dig.
Det finns inga kommentarer här ännu
Ladda fler
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL