Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս կպցնել արժեքները տեսանելի / զտված բջիջներին միայն Excel- ում:

Excel- ում, եթե դուք զտված եք տվյալներ կամ թաքցրել եք որոշ բջիջներ, և երբ արժեքները տեղադրում եք զտված կամ թաքնված տիրույթում, ապա թաքնված բջիջները նույնպես կլցվեն տեղադրված արժեքներով: Այստեղ ես ձեզ կասեմ որոշ հնարքներ ՝ միայն Excel- ում տեսանելի բջիջներին արժեքները տեղադրելու համար:

Կպցրեք արժեքները տեսանելի բջիջներին VBA- ով

Կպցրեք արժեքները տեսանելի բջիջներին, տեղադրեք Excel- ի համար Kutools- ի տեսանելի շարքում լավ գաղափար 3


Կպցրեք արժեքները տեսանելի բջիջներին VBA- ով

Excel- ում, բացի VBA- ից, այս խնդիրը լուծելու այլ եղանակներ չկան:

1. Մամուլ Alt + F11 ստեղները միաժամանակ, և ա Microsoft Visual Basic հավելվածների համար պատուհանը բացվում է:

2: սեղմեք Տեղադրել > Մոդուլներ, ապա տեղադրեք ներքևում գտնվող VBA կոդի վրա `ելնող Մոդուլի պատուհանում:

VBA. Կպցրեք արժեքները միայն տեսանելի բջիջներին:

Sub CopyFilteredCells()
	'Updateby20150203
	Dim rng1 As Range
	Dim rng2 As Range
	Dim InputRng As Range
	Dim OutRng As Range
	xTitleId     = "KutoolsforExcel"
	Set InputRng = Application.Selection
	Set InputRng = Application.InputBox("Copy Range :", xTitleId, InputRng.Address, Type: = 8)
	Set OutRng   = Application.InputBox("Paste Range:", xTitleId, Type: = 8)
	For Each rng1 In InputRng
		rng1.Copy
		For Each rng2 In OutRng
			If rng2.EntireRow.RowHeight > 0 Then
				rng2.PasteSpecial
				Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
				Exit For
			End If
		Next
	Next
	Application.CutCopyMode = False
End Sub

3: սեղմեք F5 բանալին կամ Վազում կոճակը, ապա երկխոսություն է դուրս գալիս, որպեսզի դուք ընտրեք պատճենելու արժեքները: Տեսեք,
doc- կպցնել-տեսանելի-բջիջ-1

4. Արժեքներ ընտրելուց հետո կտտացրեք OK, ապա դուրս է գալիս մեկ այլ երկխոսություն ՝ ընտրված տվյալները տեղադրելու համար մի տիրույթ ընտրելու համար: Տեսեք,
doc- կպցնել-տեսանելի-բջիջ-2

5: սեղմեք OK, Դուք կարող եք տեսնել, որ միայն տեսանելի բջիջներն են տեղադրված ընտրված արժեքները:


Կպցրեք արժեքները տեսանելի բջիջներին, տեղադրեք Excel- ի համար Kutools- ի տեսանելի շարքում

Իրականում, եթե օգտագործում եք Կպցնել տեսանելի շարքին օգտակարությունը Excel- ի համար նախատեսված գործիքներ - հարմար Excel գործիք, դուք կարող եք արագ և հեշտությամբ լուծել տեսանելի տիրույթում արժեքների տեղադրման խնդիրը:
doc տեղադրեք տեսանելի բջիջը 6

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)

1. Ընտրեք մի շարք արժեքներ, որոնք ցանկանում եք պատճենել և տեղադրել, ապա կտտացրեք Կուտոլս > Շարք > Կպցնել տեսանելի շարքին > բոլորը or Միայն կպցնել արժեքները, Տեսեք,
doc տեղադրեք տեսանելի բջիջը 7

2. Հետո ա Կպցնել տեսանելի շարքին դուրս է գալիս երկխոսություն և ընտրեք այն տիրույթը, որը ցանկանում եք տեղադրել արժեքները: Տեսեք,
doc տեղադրեք տեսանելի բջիջը 8

3: սեղմեք OK, Այժմ ընտրված արժեքները տեղադրվում են միայն տեսանելի տիրույթում:

Միայն արժեքները կպցրեք տեսանելի բջիջներին Տեղադրեք բոլորը տեսանելի բջիջներին
doc տեղադրեք տեսանելի բջիջը 9 doc տեղադրեք տեսանելի բջիջը 10


Նշում:
Այս օգտակար ծրագիրը և՛ աշխատում է թաքնված և զտված տողերի կամ սյունակների վրա

Սեղմեք այստեղ «Տեղադրել տեսանելի տիրույթում» օգտակար ծառայության մասին ավելի մանրամասն տեղեկություններ ստանալու համար:

  Տեղադրել միայն տեսանելի բջիջներում

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (22)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you very much hundred times
This comment was minimized by the moderator on the site
After going absolutely crazy trying to find a solution, this worked - specifically, the macro for pasting INTO visible only cells. Note that I was copying only from unfiltered cells. However, the people complaining that it doesn't do both (which I'm not sure is true) should be quiet because it's pretty easy to copy FROM only visible/filtered cells into an unfiltered area. You don't need a macro for that (and if you're trying to do both, just do the copying of filtered cells in Excel first, then use this macro). Again, what Excel is fully unable to do on its own without a macro is to paste to visible cells only. This macro saved my bum. Thanks!
This comment was minimized by the moderator on the site
Thanks for your recognition.
This comment was minimized by the moderator on the site
This worked perfectly, thanks!
This comment was minimized by the moderator on the site
You can also easily do this without a plugin....
CTRL+C the cells you want to paste
Highlight the filtered/partially hidden range you're pasting to
CTRL+G
Select "Special"
Select "Visible Cells Only" & hit OK
CTRL+V
This comment was minimized by the moderator on the site
Thansk for you reply, but it does not work. With your method, it paste all cells including hidden ones with the copied values.
This comment was minimized by the moderator on the site
VBA method did not work! It copied the invisible cells into the visible cells. Now, I realize that the title doesn't say "How to paste values FROM VISIBLE/FILTERED CELLS to visible/filtered cells only in Excel?" but if my workbook is filtered, it's highly possible that this is what is needed. If this is what you want - copy from one section to another (or to simply paste values from certain cells right back to the same cells, so to remove the fomulas) you first need to copy/paste values to an unfiltered workbook/worksheet. THEN you can use the macro...or at least I hope you can. I didn't save my data and UNDO does not work....
This comment was minimized by the moderator on the site
I am sorry for that.
This comment was minimized by the moderator on the site
So is there any update version for this situation?
This comment was minimized by the moderator on the site
It is even more flexible and functional if the inner loop is constructed with Do While loop.
This comment was minimized by the moderator on the site
This was very helpful. Many thanks.
This comment was minimized by the moderator on the site
i am currently developing a macro. In that i need to do filter for a particular column for Eg: Column D and need to paste some values Eg: Valid in column B. only i need to paste the value for the filtered cells. And also i want to know the coding for multiple filters at a time. EG: filtering in one column and checking the value and again do filter in another column without making false for the previous filter. help me on this.
This comment was minimized by the moderator on the site
This works great up to record 1163 of 23,000 and then it stops. Why would it stop?
This comment was minimized by the moderator on the site
You rock! I've had this issue multiple times in the past but it became a back-breaker for the recent project. And you've helped me to fix it beautifully. THANK YOU!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations