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

Sut i ailadrodd gwerth celloedd x gwaith yn Excel?

Er enghraifft, mae gennych chi restr o werthoedd yng Ngholofn A, ac rydych chi am ailadrodd y gwerthoedd nifer penodol o weithiau yn seiliedig ar yr amseroedd rhif yng Ngholofn B, fel y dangosir y llun chwith, sut allech chi gyflawni hyn yn Excel?

 

Ailadroddwch werthoedd celloedd X gwaith gyda fformiwla a cholofn cynorthwyydd

I ailadrodd y gwerthoedd celloedd X gwaith, gallwch fewnosod rhai colofnau cynorthwywyr ac yna defnyddio rhywfaint o fformiwla syml, gwnewch y camau canlynol:

1. Mewnosodwch golofn i'r chwith o golofn A, a theipiwch 1 yng nghell A2, gweler y screenshot:

2. Yna rhowch y fformiwla hon = A2 + C2 i mewn i A3, a llusgwch yr handlen llenwi i'r gell A6, gweler y screenshot:

3. Ac yna nodwch 1 yng nghell D2, a llenwch y rhif trwy lusgo'r Llenwad Auto i 12 sef cyfanswm nifer yr amseroedd rhif yng ngholofn C, gweler y screenshot:

4. Yna nodwch y fformiwla hon = VLOOKUP (D2, $ A $ 1: $ B $ 6,2) i mewn i gell E2 a chopïo i lawr, fe gewch y canlyniad canlynol:

  • Nodiadau:
  • 1. Yn y fformiwla hon, D2 yn nodi'r gell gyntaf i chi gael eich llenwi â'r dilyniant rhif, a A1: B6 yn sefyll am ystod y golofn gynorthwyydd gyntaf a'r gwerthoedd celloedd gwreiddiol y mae angen i chi eu hailadrodd.
  • 2. Ar ôl cael y gwerthoedd ailadroddus, gallwch eu copïo a'u pastio fel gwerthoedd i unrhyw le arall.

Copïo a mewnosod rhesi X gwaith yn seiliedig ar rif penodol yn hawdd

Fel rheol, nid oes dull da ar gyfer copïo a mewnosod rhesi sawl gwaith ac eithrio delio â chopïo a mewnosod â llaw. Ond, gyda Kutools ar gyfer Excel's Rhesi / colofnau dyblyg yn seiliedig ar werth celloedd nodwedd, gallwch ddatrys y broblem hon yn rhwydd. Cliciwch i lawrlwytho Kutools ar gyfer Excel!

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 60 diwrnod. Dadlwythwch a threial am ddim Nawr!


Ailadroddwch werthoedd celloedd X gwaith gyda chod VBA

Os ydych chi'n ystyried bod y dull cyntaf yn anodd ei ddeall, yma, gallaf hefyd gyflwyno cod VBA i chi i'w ddatrys.

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Ailadrodd gwerthoedd celloedd X gwaith

Sub CopyData()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
    xValue = Rng.Range("A1").Value
    xNum = Rng.Range("B1").Value
    OutRng.Resize(xNum, 1).Value = xValue
    Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn ymddangos i'ch atgoffa i ddewis yr ystod sy'n cynnwys y gwerthoedd ac amseroedd ailadroddus, gweler y screenshot:

4. a chliciwch OK, bydd blwch prydlon arall yn popio allan i adael i chi ddewis cell i roi'r canlyniad, gweler y screenshot:

5. Yna cliciwch OK, a byddwch yn cael y canlyniad bod y gwerthoedd a ddewiswyd gennych wedi cael eu hailadrodd amseroedd penodol yn ôl yr angen.


Copïwch a mewnosodwch werthoedd celloedd X gwaith gyda nodwedd anhygoel

Weithiau, efallai y bydd angen i chi gopïo a mewnosod gwerthoedd y gell x gwaith yn seiliedig ar y rhif penodol, Kutools ar gyfer Excel's Rhesi / Colofnau Dyblyg yn seiliedig ar werth celloedd gall eich helpu i gopïo a mewnosod y rhesi yn gyflym yn seiliedig ar y rhif a nodwyd gennych.

Awgrym:I gymhwyso hyn Rhesi / Colofnau Dyblyg yn seiliedig ar werth celloedd nodwedd, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Cliciwch Kutools > Mewnosod > Rhesi / Colofnau Dyblyg yn seiliedig ar werth celloedd, gweler y screenshot:

2. Yn y Copïo a mewnosod rhesi a cholofnau blwch deialog, dewiswch Copïo a mewnosod rhesi opsiwn yn y math adran, yna dewiswch yr ystod ddata rydych chi am ei dyblygu, ac yna nodwch yr amser ailadrodd i gopïo a mewnosod y rhesi, gweler y screenshot:

4. Yna, cliciwch Ok or Gwneud cais botwm, fe gewch y canlyniad canlynol yn ôl yr angen:

Cliciwch i Lawrlwytho Kutools ar gyfer Excel a threial am ddim Nawr!


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 (44)
Wedi graddio 5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am hyn, hawdd iawn i'w wneud a'i ddeall. Roeddwn i'n arfer gwneud hyn â llaw gyda 2600 o gelloedd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i gael y macro i gofio'r cyrchfan mewnbwn ac allbwn felly y tro nesaf mae'r macro yn cael ei redeg nid oes angen i chi ail-ddewis?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod VBA yn torri pan fo gwerth 0 yn y golofn "nifer o weithiau". Addaswch y ddolen Ar Gyfer Pob un fel a ganlyn: Ar gyfer Pob Rng Mewn Mewnbwn Rng.Rows xValue = Rng.Range("A1").Gwerth xNum = Rng.Range("B1").Gwerth Os xNum > 0 Yna OutRng.Resize(xNum, 1).Gwerth = xGwerth Set OutRng = OutRng.Offset(xNum, 0) Diwedd Os Nesaf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch Dyn!! Wedi arbed llawer o amser. :-)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y dull cyntaf, fe weithiodd yn ddi-ffael, Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch Dyn ..!! Mae hyn yn gweithio ac wedi arbed digon o amser.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch!! Wedi arbed tunnell o amser i mi. Defnydd clyfar o vlookup!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fel #John Said, a oes ffordd i gael ystod benodol fel nad oes angen i chi ddewis. Rwyf hefyd yn ceisio gludo pob Gwerth unigol yn ei golofn ei hun. Rwyf wedi newid y llinell Set OutRng=OutRng.offset(xNum,0) i Set OutRng=OutRng.offset(xNum,1) mewn ymgais i'w gwneud yn golofnau mae'n ymddangos fy mod yn cael gwall ar y llinell OutRng.Resize(xNum ,1).value=xGwerth hyd yn oed os byddaf yn copïo a gludo'r cod o'r wefan hon. Byddai unrhyw gymorth yn cael ei werthfawrogi'n fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr!!!! Gweithiodd VB Macro i mi ac arbed fy amser 1 wythnos.... Diolch Eto ..
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A fydd y cod VBA a awgrymir yn yr erthygl yn gweithio os nad yw'r celloedd â'r nifer o weithiau wrth ymyl y celloedd sydd â'r gwerth? Os na, a oes ffordd i addasu'r VBA i'w gael i weithio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn. :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae gennyf ymholiad: Data sylfaen: Gwlad Cleient Allbwn Cyffredinol: Cleient1 Cleient2 Cleient3 (os o gwbl) Gwlad 1 Gwlad2 ac yn y blaen...(os o gwbl) Cyffredinol1 Cyffredinol2 ac ati...(os o gwbl) Yn garedig, gall unrhyw un datrys hyn tra'n defnyddio fformiwla yn excel ASAP
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Anhygoel! Diolch yn fawr!!!!!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn dal i arbed prosiectau yn 2017! Diolch yn fawr am hwn! :-)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr, ti wedi gwneud gwaith gwych.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i newid y cod felly mae yna 2 golofn gyda data ac 1 golofn gyda'r qty o ailadroddiadau. hy A1 = x B2 = y C3 = 2 byddai'r macro wedyn yn ailadrodd A1 ddwywaith a b2 ddwywaith yn y cels i'r dde. Unrhyw help appriceated. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn yn ddefnyddiol iawn, daeth yn ddefnyddiol i greu taenlen ar gyfer gwaith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sir.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Y VBA neu'r fformiwla. Nid yw'r un ohonynt yn gweithio i mi. Mae'n rhoi "gwall diffiniedig cais neu wrthrych wedi'i ddiffinio" Gwall 1004. A all unrhyw un gynorthwyo?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'r cod VBA yn gweithio os nad oes gennych Kutools. Mae'n rhoi gwall i mi "newidyn heb ei ddiffinio"
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir