Ինչպե՞ս Excel- ում ցուցակագրել բոլոր մեկնաբանությունները նոր աշխատանքային թերթի կամ աշխատանքային գրքի վրա:

Եթե ​​ունեք աշխատանքային գրքույկ, որում շատ մեկնաբանություններ կան, և ուզում եք բոլոր մեկնաբանությունները ցուցադրել նոր աշխատանքային թերթում կամ աշխատանքային գրքում, բոլոր մեկնաբանությունները դիտելու համար, ինչպե՞ս կարող եք դա անել: Հետևյալ մեթոդները կօգնեն ձեզ արագ թվարկել աշխատանքային թերթի / աշխատանքային գրքի բոլոր մեկնաբանությունները Excel- ի նոր աշխատանքային թերթում կամ աշխատանքային գրքում:

Նշեք բոլոր մեկնաբանությունները նոր աշխատանքային թերթ VBA կոդով

Excel- ի համար Kutools- ի հետ նշեք բոլոր մեկնաբանությունները նոր աշխատանքային թերթում կամ աշխատանքային գրքում

Նշեք բոլոր մեկնաբանությունները նոր աշխատանքային թերթ VBA կոդով

Հաջորդ VBA կոդը կցուցադրի ընթացիկ աշխատանքային գրքում նոր աշխատանքային թերթի բոլոր մեկնաբանությունները: Նոր աշխատաթերթում այն ​​կցուցադրի ամբողջ աշխատանքային գրքի բոլոր մեկնաբանությունները ցուցակում, որտեղ նշված են թերթիկի անունը, բջջային հասցեն, մեկնաբանության բովանդակությունը և բջջային անունը: Խնդրում ենք օգտագործել այս մեթոդը հետևյալ կերպ.

1. Սեղմել Երեվակիչ > Visual Basic, դա ցուցադրում է Microsoft Visual Basic հավելվածների համար պատուհան Եվ կտտացրեք Տեղադրել > Մոդուլներ, ապա մուտքագրեք հետևյալ VBA կոդերը Մոդուլում:

VBA. Ցուցակագրում է բոլոր մեկնաբանությունները նոր աշխատանքային թերթում:

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. Այնուհետեւ կտտացրեք  կոդն աշխատեցնելու համար, և դուք կստանաք նոր աշխատանքային թերթ `ընթացիկ աշխատանքային գրքում նշված բոլոր մեկնաբանություններով: Տեսեք,

Մեկ կտտոցով նշեք բոլոր մեկնաբանությունները նոր աշխատանքային թերթում կամ աշխատանքային գրքում

Հետ Ստեղծել մեկնաբանությունների ցուցակ of Excel- ի համար նախատեսված գործիքներ, Դուք կարող եք արագ թվարկել բոլոր մեկնաբանությունները նոր աշխատանքային թերթում կամ նոր աշխատանքային գրքում:

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Get it Now.

1, Եթե ​​Kutools- ը տեղադրել եք Excel- ի համար, կտտացրեք Կուտոլս > Ավելին > Ստեղծել մեկնաբանությունների ցուցակ, տես նկարի նկարը.

2, Մեջ Ստեղծել մեկնաբանությունների ցուցակ երկխոսության տուփ:

• Ընտրեք այն շրջանակը, որը ցանկանում եք ցուցակագրել մեկնաբանությունը, կարող եք ընտրել Ակտիվ թերթիկ or Բոլոր թերթերը.
• Դրանից հետո նշեք այն վայրը, որը ցանկանում եք տեղադրել մեկնաբանությունների ցուցակը, մեկնաբանությունները կարող եք ցուցադրել նոր աշխատանքային գրքում կամ նոր թերթում, տե՛ս նկարը.

3. Եվ այնուհետեւ կտտացրեք Ստեղծելկոճակ Նոր աշխատանքային թերթ կավելացվի ՝ ցուցակի բոլոր ակտիվ մեկնաբանությունները իր հատկանիշներով, ինչպիսիք են թերթի անունը, բջջային հղումները, տողն ու սյունը: Տեսեք,

Մասին ավելի մանրամասն տեղեկություններ ստանալու համար Ստեղծել մեկնաբանությունների ցուցակ, Խնդրում ենք այցելել Ստեղծել մեկնաբանությունների ցուցակի հատկությունների նկարագրություն.

Առնչվող հոդվածներ քանակը:

• Փոխել մեկնաբանության բոլոր ձևաչափերը բջիջներում
• Փոխեք բոլոր մեկնաբանությունների հեղինակի անունը
• Գտեք և փոխարինեք տեքստը մեկնաբանություններում
• Excel- ում ցույց տվեք կամ թաքցրեք բոլոր մեկնաբանություններն ու մեկնաբանությունների ցուցանիշները
• Excel- ում բջիջների բովանդակությունը վերածեք մեկնաբանությունների
• Մեկնաբանությունները փոխել Excel- ում բջջային պարունակության