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

Sut i fewnosod rhes yn seiliedig ar werth celloedd yn Excel?

doc-insert-row-seiliedig-ar-werth-1
Tybiwch fod gennych ystod o ddata, a'ch bod am fewnosod rhesi gwag uwchben neu'n is na gwerth penodol yn Excel, er enghraifft, mewnosod rhesi islaw gwerth sero fel y dangosir isod y screenshot. Yn Excel, nid oes unrhyw ffordd uniongyrchol yn gallu datrys y dasg hon, ond gallaf gyflwyno cod Macro i chi fewnosod rhesi yn seiliedig ar werth penodol yn Excel.
Mewnosod rhes isod yn seiliedig ar werth celloedd gyda VBA

Mewnosod rhes uchod yn seiliedig ar werth celloedd gyda Kutools ar gyfer Excel syniad da3

I fewnosod rhes yn seiliedig ar werth celloedd trwy redeg VBA, gwnewch fel y nodir isod:

1. Gwasgwch Alt + F11 allweddi ar yr un pryd, ac a Microsoft Visual Basic ar gyfer Ceisiadau ffenestr yn popio allan.

2. Cliciwch Mewnosod > Modiwlau, yna pastiwch islaw cod VBA i'r popping Modiwlau ffenestr.

VBA: Mewnosod rhes isod yn seiliedig ar werth celloedd.

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. Cliciwch F5 allwedd neu'r Run botwm, mae deialog yn popio allan, a dewiswch y golofn yn cynnwys sero. Gweler y screenshot:
doc-insert-row-seiliedig-ar-werth-2

4. Cliciwch OK. Yna bydd rhesi gwag yn cael eu mewnosod o dan werth sero.
doc-insert-row-seiliedig-ar-werth-3

Tip:

1. Os ydych chi am fewnosod rhesi yn seiliedig ar werth arall, gallwch chi newid 0 i unrhyw werth rydych chi ei eisiau yn y VBA: Os Rng.Value = "0" Yna.

2. Os ydych chi am fewnosod rhesi uwchlaw sero neu werth arall, gallwch ddefnyddio'r cod vba isod.

VBA: Mewnosod rhes uwchlaw gwerth sero:

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-seiliedig-ar-werth-4


Os nad ydych chi'n gyfarwydd â VBA, gallwch geisio Kutools ar gyfer Excel's Dewiswch Gelloedd Penodol cyfleustodau, ac yna mewnosod rhesi uchod.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel y nodir isod:(Kutools i'w lawrlwytho am ddim ar gyfer Excel Nawr!)

1. Dewiswch y rhestr rydych chi am ddarganfod y celloedd penodol ohoni, a chlicio Kutools > dewiswch > Dewiswch Gelloedd Penodol. Gweler y screenshot:
mewnosod doc rhes yn seiliedig ar werth 9

2. Yn y dialog popping, gwiriwch Rhes gyfan opsiwn, ac yna ewch i ddewis Equals o Math penodol rhestrwch, ac yna nodwch y gwerth rydych chi am ddod o hyd iddo yn y blwch testun cywir. Gweler y screenshot:
mewnosod doc rhes yn seiliedig ar werth 6

3. Cliciwch Ok, ac mae deialog yn ymddangos i'ch atgoffa nifer y rhesi a ddewiswyd, dim ond ei gau.

4. Rhowch gyrchwr ar un rhes a ddewiswyd, a chliciwch ar y dde i ddewis Mewnosod o'r ddewislen cyd-destun. Gweler y screenshot:
mewnosod doc rhes yn seiliedig ar werth 7

Nawr mae'r rhesi wedi'u mewnosod uchod yn seiliedig ar werth penodol.
mewnosod doc rhes yn seiliedig ar werth 8


Erthyglau Perthynas:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (36)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am gludo cynnwys penodol o dan y gell isod. Sut i wneud hynny? Yn lle rhes wag, rwyf am fewnosod gwerth mewn ychydig o golofnau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwyf am fewnosod rhesi lluosog yn seiliedig ar y gwerth Ex: Rwyf am fewnosod 1 rhes wag o dan y gell gyda gwerth 2, 2 rhes o dan y gell gyda gwerth 3, 3 rhes o dan y gell gyda gwerth 4 ac yn y blaen Allwch chi Helpwch fi gyda hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gawsoch chi erioed ateb i hyn? Rwy'n ceisio gwneud yr un peth.

Sicrhewch fod gennych restr o weithwyr sydd â # o wythnosau o wyliau a gânt. Rwyf am fewnosod rhes ar gyfer pob wythnos. Bydd yn 1, 2 neu 3 rhes yn dibynnu ar faint o amser y maent wedi'i ennill. mae'r #s 1 2 3 yn fy nhaenlen yn barod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am fewnosod rhesi yn seiliedig ar gyfrif gan ddefnyddio gwerth cell mewn un daenlen a mewnosod rhesi mewn taenlen arall.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch i'ch neges. Ond a allwch chi ddisgrifio'ch cwestiwn gyda mwy o fanylion? Pa resi ydych chi am eu mewnosod? Yn wag? A Ble rydych chi am fewnosod yn y daflen? Os gallwch chi, rhowch sgrinlun i mi. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n dy garu di. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hynny'n anhygoel!!. Diolch dyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut alla i fewnosod mwy nag un rhes?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch chi roi cynnig ar y VBA hwn

Is-llinell wag()
'Diweddariad erbyn20150203
Dim Rng Fel Ystod
Dim WorkRng Fel Ystod
Dim xInsertNum Cyhyd
' Ar Gwall Ailddechrau Nesaf
xTitleId = "Kutools ar gyfer Excel"
Gosod WorkRng = Application.Selection
Gosod WorkRng = Application.InputBox ("Ystod", xTitleId, WorkRng.Address, Math:=8)
Os Dim Yw WorkRng Yna Gadael Is
xInsertNum = Application.InputBox ("Nifer y rhesi gwag rydych am eu mewnosod", xTitleId, Math:=1)
Os xInsertNum = Gau Yna
msgstr " Nifer y rhesi gwag rydych am eu mewnosod " , vbInformation, xTitleId
Is Allanfa
Gorffennwch Os
Gosod WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Anghywir
Ar gyfer xRowIndex = xLastRow I 1 Cam -1
Gosod Rng = WorkRng.Range ("A" & xRowIndex)
Os Rng.Value = "0" Yna
Rng.Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
Gorffennwch Os
Digwyddiadau
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
os ydych chi am fewnosod rhesi gwag isod, rhowch gynnig ar hyn

Is-llinell wag()
'Diweddariad erbyn20150203
Dim Rng Fel Ystod
Dim WorkRng Fel Ystod
Dim xInsertNum Cyhyd
' Ar Gwall Ailddechrau Nesaf
xTitleId = "Kutools ar gyfer Excel"
Gosod WorkRng = Application.Selection
Gosod WorkRng = Application.InputBox ("Ystod", xTitleId, WorkRng.Address, Math:=8)
Os Dim Yw WorkRng Yna Gadael Is
xInsertNum = Application.InputBox("Nifer y rhesi gwag rydych am eu mewnosod", xTitleId, Math:=1)
Os xInsertNum = Gau Yna
msgstr " Nifer y rhesi gwag rydych am eu mewnosod " , vbInformation, xTitleId
Is Allanfa
Gorffennwch Os
Gosod WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Anghywir
Ar gyfer xRowIndex = xLastRow I 1 Cam -1
Gosod Rng = WorkRng.Range ("A" & xRowIndex)
Os Rng.Value = "0" Yna
Rng.Offset(1, 0).Newid maint(xInsertNum).EntireRow.Insert Shift:=xlDown
Gorffennwch Os
Digwyddiadau
Application.ScreenUpdating = Gwir
Is-End

Mae'r un isod i fewnosod rhesi uchod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
HI Sunny, mae'r macro hwn yn gweithio'n berffaith i mi; Roedd yn rhaid i mi newid nifer y rhesi i 30 a newid y 0 i'r testun: "Closing Balance". Ond nawr rydw i eisiau copïo past detholiad o gelloedd sy'n 30 rhes o uchder i'r 30 llinell wag a fewnosodwyd gan y macro hwn. Allwch chi awgrymu macro newydd (neu ddiwygiad i hwn) i gopïo a gludo amrediad i bob llinell 30 gwag. Rwyf wedi enwi'r amrediad i gopïo a gludo 'template'.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen help mawr arnaf ar y pwnc hwn. Mae gen i 2 golofn, ar y 1af mae gen i fy amser data 01/01/2016 05:00:00, dyddiau/misoedd/blwyddyn awr/munud/eiliadau ac yn yr 2 2il golofn y data priodol sy'n gysylltiedig â'r amser.

Fy mhroblem yw fy mod am ychwanegu amser data rhwng rhesi gan fod gennyf fylchau dyddiau. Y llinell 1af yw 01/01/2016 ac mae gan yr 2il res, er enghraifft, 10/01/2016, felly mae gen i 9 diwrnod. ac nid yw'r cod hwnnw'n gweithio i mi.

Edrych ymlaen at gael rhywfaint o adborth, os gwelwch yn dda! Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch chi roi cynnig ar y VBA hwn

Is-Gwerth Mewnosod Rhwng()
'Diweddariad 20130825
Dim WorkRng Fel Ystod
Dim Rng Fel Ystod
Dim outArr Fel Amrywiad
Dim dic Fel Amrywiad
Gosod dic = CreateObject("Scripting.Dictionary")
'Ar Gwall Ailddechrau Nesaf
xTitleId = "KutoolsforExcel"
Gosod WorkRng = Application.Selection
Gosod WorkRng = Application.InputBox ("Ystod", xTitleId, WorkRng.Address, Math:=8)
num1 = WorkRng.Range("A1").Gwerth
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Gwerth
cyfwng = rhif2 - rhif1
ReDim outArr(1 I'r cyfwng + 1, 1 I 2)
Ar gyfer Pob Rng Mewn WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Gwerth
Digwyddiadau
Am i = 0 I cyfwng
allanArr(i + 1, 1) = i + rhif1
Os dic.Exists(i + rhif1) Yna
allan Arr(i + 1, 2) = dic(i + rhif 1)
arall
allanArr(i+1, 2)=""
Gorffennwch Os
Digwyddiadau
Gyda WorkRng.Range("A1").Newid maint(UBound(outArr, 1), UBound(outArr, 2))
.Gwerth = allanArr
.Dethol
Diwedd Gyda
Is-End


Neu os oes gennych chi Kutools ar gyfer Excel, gallwch chi roi cynnig ar y swyddogaeth hon:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr, rwyf wedi rhoi cynnig ar y ddau, yr un 1af ers i mi hoffi 500 rhes o ddata, rwy'n gwneud hynny ar gyfer y 500 rhes i gyd ac nid yw'n gwneud unrhyw beth, rwy'n meddwl efallai bod ganddo gyfyngiad ar y rhesi i'w defnyddio, a pan fyddaf yn dewis y 5 rhes gyntaf yn unig, er enghraifft, nid yw'n creu'r rhesi coll, mae'n disodli'r rhesi ar gyfer y data coll.

Problem arall sydd gennyf yw bod gan fy data amser hefyd y Diwrnod/Mis/Blwyddyn HH: MM: SS
Lleihawyd y sylw hwn gan y safonwr ar y wefan
O 2 i 3, mae'n creu'r data coll rydw i eisiau'n iawn, ond mae gwerth y 03/01/2016 yn cael ei ddileu ac mae rhywfaint o ddata amser sy'n cael ei ddileu rhywbeth nad ydw i eisiau chwaith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennym na wnaeth y cod VBA eich helpu chi, ni allaf ddod o hyd i'r dull a all weithio ar gyfer fformat dyddiad ac amser. Os byddwch chi'n dod o hyd i'r ateb o'r diwedd, a allech chi roi gwybod i mi? Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo eto Sunny, cefais rywfaint o lwyddiant ar olygu'r cod i hyn (rwyf yn newid y llinell num1 i A2 a Gyda WorkRng.Range ("A2:A100000"). Ailfeintio(UBound(outArr, 1), UBound(outArr, 2) ):


Is-Gwerth Mewnosod Rhwng()
'Diweddariad 20130825
Dim WorkRng Fel Ystod
Dim Rng Fel Ystod
Dim outArr Fel Amrywiad
Dim dic Fel Amrywiad
Gosod dic = CreateObject("Scripting.Dictionary")
'Ar Gwall Ailddechrau Nesaf
xTitleId = "KutoolsforExcel"
Gosod WorkRng = Application.Selection
Gosod WorkRng = Application.InputBox ("Ystod", xTitleId, WorkRng.Address, Math:=8)
num1 = WorkRng.Range("A2").Gwerth
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Gwerth
cyfwng = rhif2 - rhif1
ReDim outArr(1 I'r cyfwng + 1, 1 I 2)
Ar gyfer Pob Rng Mewn WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Gwerth
Digwyddiadau
Am i = 0 I cyfwng
allanArr(i + 1, 1) = i + rhif1
Os dic.Exists(i + rhif1) Yna
allan Arr(i + 1, 2) = dic(i + rhif 1)
arall
allanArr(i+1, 2)=""
Gorffennwch Os
Digwyddiadau
Gyda WorkRng.Range("A2:A100000").Newid maint(UBound(outArr, 1), UBound(outArr, 2))
.Gwerth = allanArr
.Dethol
Diwedd Gyda
Is-End



Rwy'n dangos y graffiau i chi, nid yw'n gweithio 100% oherwydd nid yw'n creu'r amser o A1 i A2
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma fy nghwestiwn ac mae'n un anodd iawn mae'n debyg... a oes cod vba sy'n ychwanegu rhes newydd o dan golofn wedi'i hidlo a chopïo dim ond y tair cell gyntaf i'r rhes newydd ychwanegol a pharhau i wneud hynny nes bod y defnyddiwr yn stopio taro "enter" a dad-hidlo'r celloedd wedi'u hidlo?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae eich cwestiwn braidd yn anodd a chymhleth, gallwch chi osod y cwestiwn yn ein fforwm, efallai y gall rhywun eich ateb. https://www.extendoffice.com/forum.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Fi jyst eisiau gofyn sut i ychwanegu rhes os yw'r codiad yw y dylid ychwanegu rhes yn cael ei wneud pan fydd gan gell ddata yn barod (Mae ar gyfer llyfr gwaith excel gyda llawer o daflenni :) Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
efallai y gall y cod vba hwn eich helpu. Bydd yn ychwanegu rhesi os nad yw'r rhes uchod yn wag

Is-gymorth()
Dim cyfrif Cyn Hir
Ar gyfer cyfrif = ActiveSheet.UsedRange.Rows.count I 1 Cam -1
Os Gwybodaeth.IsEmpty(Celloedd(cyfrif, 1)) = Ffug Yna Rhesi(cyfrif + 1).Mewnosod
Cyfrif nesaf
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rydw i'n ceisio defnyddio'r cod hwn i nodi rhes pan fydd y 4 digid cyntaf mewn cell yn newid (os yw hynny hyd yn oed yn bosibl)

er enghraifft,
2222A
2222B
2223K


mewnosodir y llinell ar ôl 2222B gan mai 3 yw'r 3ydd rhif ac nid 2

Diolch bois!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch am hyn, fodd bynnag, mae gen i senario arall lle mae angen i mi fewnosod cell cingle o dan y gwerth nad yw'n sero. Gwerthfawrogi unrhyw awgrym.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Gina, dwi'n dod o hyd i'r cod i fewnosod rhes wag uwchben y gell nad yw'n wag, efallai y gall rhywun ei haddasu i ddiwallu'ch angen.

Is-fewnosod_ Rhesi()
Dim LR Cyhyd, r Cyhyd

Application.ScreenUpdating = Anghywir
LR = Ystod ("A" & Rhesi.Cyfrif).Diwedd(xlUp). Rhes
Ar gyfer r = LR I 1 Cam -1
Os Len(Amrediad ("A" & r). Gwerth) > 0 Yna
Rhesi(r).Mewnosod
Gorffennwch Os
Nesaf r
Application.ScreenUpdating = Gwir
Is-End

dod o https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae hyn yn ddefnyddiol iawn. Beth pe bawn i eisiau ychwanegu dwy linell isod ac roeddwn i eisiau mwy o werthoedd. Er enghraifft, rwyf am ychwanegu dwy linell ar ôl gwerth 26/04/2019 ac yna dwy linell ar ôl 03/04/2019, ac mae'r rhestr yn mynd ymlaen. Sut ydw i'n parhau i ychwanegu at y vba? Mae'n ddrwg gennyf fy mod yn dal i fod yn ddechreuwr. Diolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Safa, efallai y gallwch chi roi cynnig ar ddefnyddioldeb mewnosod rhesi / colofnau gwag Kutools.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-llinell wag()
'Diweddariad erbyn20150203
Dim Rng Fel Ystod
Dim WorkRng Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
xTitleId = "KutoolsforExcel"
Gosod WorkRng = Application.Selection
Gosod WorkRng = Application.InputBox("Ystod", xTitleId, WorkRng.Address, Math: = 8)
Gosod WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Anghywir
Ar gyfer xRowIndex = xLastRow I 1 Cam - 1
Gosod Rng = WorkRng.Range ("A" & xRowIndex)
Os Rng.Value = "0" Yna
Rng.EntireRow.Insert Shift: = xlDown
Gorffennwch Os
Digwyddiadau
Application.ScreenUpdating = Gwir
Is-End


Dwi angen hyn i weithio bob tro dwi'n rhoi rhywbeth yn y gell, a hefyd gyda mwy o newidynnau. Yr hyn yr wyf yn ei olygu yw, os byddaf yn rhoi 2 yn y gell, mae arnaf ei angen i fewnosod 2 res ac nid 1 yn unig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dwi angen y macro i ychwanegu rhesi yn seiliedig ar golofn maint lle os yw'r qty yn fwy nag 1, mae'n mewnosod nifer y rhesi -1. Os yw'r maint yn 5 mae'n mewnosod 4 rhes oddi tano a llenwi'r data a newid y qty a elwir allan o 5 i 1 bob rhes. Hepgor pob qty 1.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dywedwch wrthyf y cod lle rwyf am ychwanegu nifer benodol o resi yn seiliedig ar werth cell. er enghraifft, os yw cell yn cynnwys y digid 18, yn awtomatig dylid ychwanegu 18 rhes lle rwyf eisiau a dylai gweddill y tabl / cell symud i lawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr am hyn, yn arbed amser aruthrol. A fyddai'n bosibl ychwanegu rhywfaint o god sy'n caniatáu i mi fewnosod rhywfaint o destun yn y rhes newydd. Er enghraifft, rwy'n mewnosod rhesi newydd yn seiliedig ar werth targed 'x', yna rwyf am ychwanegu gwerth testun 'y' yn y gell o dan y gwerth targed 'x'. Ydy hyn yn bosibl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Mae'r macro yn gweithio i mi ond a oes modd gosod yr amrediad/paramedrau bob amser i golofn J heb i'r blwch mewnbwn ddod o gwbl? Hoffwn iddo hepgor cam y blwch mewnbwn yn dod i fyny. Hefyd, rwyf wedi gwneud yn siŵr yn union cyn y macro hwn mai Ystod ("J:J") yw llinell olaf fy macro blaenorol. Dewiswch i wneud yn siŵr bod y golofn J gyfan eisoes wedi'i dewis.
Dyma beth rydw i wedi bod yn ei ddefnyddio hyd yn hyn.

Dim Rng Fel Ystod
Dim WorkRng Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
xTitleId = "Cliciwch Iawn i Barhau"
Gosod WorkRng = Application.Selection
Gosod WorkRng = Application.InputBox ("Ystod", xTitleId, WorkRng.Address, Math:=8)
Gosod WorkRng = WorkRng.Columns(1)
Allweddi Anfon "~"
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Anghywir
Ar gyfer xRowIndex = xLastRow I 1 Cam -1
Gosod Rng = WorkRng.Range ("A" & xRowIndex)
If Rng.Value = "Llinell GMS Newydd" Yna
Rng.EntireRow.Insert Shift:=xlDown
Gorffennwch Os
Digwyddiadau


Rwyf wedi ceisio arbrofi gan ddefnyddio'r gorchymyn SendKeys "~" rhwng rhai o'r camau i geisio ei gael i bwyso enter yn awtomatig pan ddaw'r blwch mewnbwn i fyny ond nid yw hynny wedi gweithio ychwaith. Nid oeddwn yn siŵr ble yn union i ddefnyddio'r gorchymyn SendKeys yn y macro neu a fyddai hyd yn oed yn gweithio gyda blwch mewnbwn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helpwch mei i gael data.i gael data amser un mis, yn yr ystyr bod yn rhaid i mi fewnosod rhesi gwag yn ôl yr amser dianc
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, hr.babu08, mae'n ddrwg gennyf fod yr ateb yn hwyr. Rwy'n dyfalu eich bod am fewnosod rhesi gwag neu wneud marc ar gyfer y data dilyniant coll, os felly, gallwch geisio Kutools ar gyfer Excel's Dod o Hyd i Nifer Dilyniant Coll feature.Here yw'r tiwtorial am y nodwedd: https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf rydych chi eisiau dulliau eraill o fewnosod rhesi gwag ar gyfer dilyniant coll, ewch i:https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
A ellir defnyddio/newid y marco hwn ar gyfer celloedd lliw?
Mae angen i mi fewnosod o leiaf 10 rhes uwchben diwedd pob cyfres sydd wedi'u lliwio.
Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen i mi ychwanegu rhesi penodol gyda gwerthoedd ynddynt ar gyfer cynnwys celloedd penodol, ond ddim yn siŵr sut i wneud hynny heb orfod gwneud â llaw am dros 3800+ o linellau

Er enghraifft: A1 = Nod1
Mae angen i mi gael rhes wedi'i mewnosod a hi i fynd i mewn i'r Sganiwr gwerth
Rhowch res arall a nodwch yr Argraffydd gwerth
rhes arall gyda CD gwerth.
etc
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Chris, dyma VBA a all eich helpu i fewnosod tair rhes yn awtomatig (Sganiwr, Argraffydd, CD) pan fydd y gwerth yn hafal i 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

Rhowch wybod i mi os yw'n gweithio i chi.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir