Skip i'r prif gynnwys

Sut i gopïo cell heb doriad llinell newydd yn Excel?

Fel rheol, wrth gopïo cell Excel gyda Ctrl + C a'i gludo i olygydd arall fel ffeil TXT, bydd llinell newydd yn atodi'n awtomatig ar ddiwedd y cynnwys a gopïwyd fel y dangosir isod. Os ydych chi am gludo'r holl gelloedd sydd wedi'u copïo i mewn i faes un llinell, mae'n rhaid i chi wasgu'r allwedd Backspace â llaw i ddychwelyd i'r llinell sengl yn ôl ac ymlaen bob tro y byddwch chi'n pastio cell. Sut i gopïo cell heb doriad llinell newydd yn Excel? Bydd dulliau yn yr erthygl hon yn eich helpu i fynd drwyddo.

Copïwch gell heb doriad llinell newydd gyda chopïo a phastio
Copïwch gell heb doriad llinell newydd gyda chod VBA


Copïwch gell heb doriad llinell newydd gyda chopïo a phastio

Gallwch chi fynd i mewn i fodd golygu'r gell ac yna copïo a gludo cynnwys y gell heb doriad llinell newydd. Gwnewch fel a ganlyn.

1. Dewiswch y gell rydych chi am ei chopïo, pwyswch y F2 cliciwch allwedd neu ddwbl i fynd i mewn i'r modd golygu, dewiswch gynnwys y gell a gwasgwch y Ctrl + C allweddi i'w gopïo.

2. Agorwch y ffeil TXT neu ffeiliau eraill y byddwch chi'n gludo'r cynnwys, yna pwyswch y Ctrl + V allweddi.

Yna copïir cynnwys y gell heb doriad llinell newydd fel y dangosir y screenshot uchod.


Copïwch gell heb doriad llinell newydd gyda chod VBA

Ar ben hynny, gallwch chi gopïo cell heb doriad llinell newydd gyda isod cod VBA.

1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch isod buwch VBA i'r ffenestr.

Cod VBA: Copïwch gell heb doriad llinell newydd

Sub CopyText()
'Update by Extendoffice 20180608
    Dim xAutoWrapper As Object
    Set xAutoWrapper = New DataObject  'or GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    xAutoWrapper.SetText ActiveCell.Text
    xAutoWrapper.PutInClipboard
End Sub

3. Cliciwch offer > Cyfeiriadau, a chliciwch ar y Pori botwm yn y Cyfeiriadau ffenestr. Gweler y screenshot:

4. Yn yr agoriad Ychwanegu Cyfeirnod ffenestr, rhowch Windows \ system32 i mewn i'r cyfeiriad blwch, ac yna pwyswch y Rhowch allwedd. Rhowch i mewn FM20.DLL i mewn i'r enw ffeil blwch a chliciwch ar y agored botwm.

5. Cliciwch ar y OK botwm pan fydd yn dychwelyd i'r Cyfeiriadau ffenestr.

7. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

8. Yna, cliciwch Datblygwr > Macros. Gweler y screenshot:

9. Yn y Macro blwch deialog, dewiswch yr enw CopiText yn y Macro enw blwch, cliciwch y Dewisiadau botwm i nodi allwedd llwybr byr i'r macro hwn, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

O hyn ymlaen, pan fyddwch chi eisiau copïo cell heb doriad llinell newydd, defnyddiwch yr allwedd llwybr byr rydych chi wedi'i nodi uchod i gopïo'r gell ac yna ei gludo i ffeiliau eraill.

Erthyglau cysylltiedig:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Works fine. Helps me a lot. Thank you very much.
This comment was minimized by the moderator on the site
Hi Grzegorz K,

I'm glad I could help.
This comment was minimized by the moderator on the site
I replaced the default copy short-cut CTRL-c with this new macro and it works great, until I want to copy a selection of multiple cells.
Now... I can change the shortcut for this macro and put back the standard shortcut for copying, but it would be nicer if this macro can change it's behavior when its called on a selection of cells. Maybe that it can perform the normal copy procedure then. How would I put that?
This comment was minimized by the moderator on the site
I solved it. The DLL didn't get activated using your explanation. Needed to select it manually. Then it worked.
But I have another question... I replaced the default copy short-cut CTRL-c with this new macro and it works great, until I want to copy a selection of multiple cells.
Now... I can change the shortcut for this macro and put back the standard shortcut for copying, but it would be nicer if this macro can change it's behavior when its called on a selection of cells. Maybe that it can perform the normal copy procedure then. How would I put that?
This comment was minimized by the moderator on the site
I get a compiling error when I try to use this new macro.
User-defined type not defined

In the macro sub the part " = New DataObject" is highlighted as being the problem.

Does this have something to do with that DLL not being active?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations