ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ ಸೆಲ್‌ನಲ್ಲಿ ನಕಲುಗಳನ್ನು ತೆಗೆದುಹಾಕುವುದು ಹೇಗೆ

  • ಇದನ್ನು ಹಂಚು
Michael Brown

ಪರಿವಿಡಿ

ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ ಸೆಲ್‌ನಲ್ಲಿ ನಕಲುಗಳನ್ನು ಹುಡುಕಲು ಮತ್ತು ಅಳಿಸಲು ಮೂರು ಮಾರ್ಗಗಳಿವೆ. ನಿಮಗಾಗಿ ಉತ್ತಮವಾಗಿ ಕಾರ್ಯನಿರ್ವಹಿಸುವದನ್ನು ಆರಿಸಿ.

ನಕಲು ಮೌಲ್ಯಗಳು ಅಥವಾ ಸಾಲುಗಳನ್ನು ತೆಗೆದುಹಾಕಲು ಇದು ಚಿಂತಿಸಿದಾಗ, Microsoft Excel ವಿವಿಧ ಆಯ್ಕೆಗಳ ಶ್ರೇಣಿಯನ್ನು ನೀಡುತ್ತದೆ. ಆದರೆ ಕೊಟ್ಟಿರುವ ಸೆಲ್‌ನಲ್ಲಿ ಒಂದೇ ರೀತಿಯ ಪಠ್ಯವನ್ನು ತೆಗೆದುಹಾಕಲು ಬಂದಾಗ, ಎಕ್ಸೆಲ್ ಒದಗಿಸುತ್ತದೆ... ಏನೂ ಇಲ್ಲ. ಪರಿಕರಗಳಿಲ್ಲ, ವೈಶಿಷ್ಟ್ಯಗಳಿಲ್ಲ, ಸೂತ್ರಗಳಿಲ್ಲ, ಏನೂ ಇಲ್ಲ. ಇದು ನಮ್ಮ ಗುರಿಯನ್ನು ಸಾಧಿಸುವುದನ್ನು ತಡೆಯುತ್ತದೆಯೇ? ಯಾವುದೇ ಸಂದರ್ಭದಲ್ಲಿ. ಎಕ್ಸೆಲ್ ನಮಗೆ ಅಗತ್ಯವಿರುವ ಕಾರ್ಯವನ್ನು ಹೊಂದಿಲ್ಲದಿದ್ದರೆ, ನಮ್ಮದೇ ಆದದನ್ನು ಬರೆಯೋಣ :)

    ಎಕ್ಸೆಲ್ ಸೆಲ್‌ನಲ್ಲಿ ಪುನರಾವರ್ತಿತ ಪದಗಳನ್ನು ತೆಗೆದುಹಾಕುವುದು ಹೇಗೆ

    ಸಮಸ್ಯೆ : ನೀವು ಸೆಲ್‌ನಲ್ಲಿ ಒಂದೇ ರೀತಿಯ ಪದಗಳು ಅಥವಾ ಪಠ್ಯ ಸ್ಟ್ರಿಂಗ್‌ಗಳನ್ನು ಹೊಂದಿದ್ದೀರಿ ಮತ್ತು ಎರಡನೆಯ ಮತ್ತು ಎಲ್ಲಾ ನಂತರದ ಪುನರಾವರ್ತನೆಗಳನ್ನು ತೆಗೆದುಹಾಕಲು ಬಯಸುತ್ತೀರಿ.

    ಪರಿಹಾರ : ಕಸ್ಟಮ್ ಬಳಕೆದಾರ-ವ್ಯಾಖ್ಯಾನಿತ ಕಾರ್ಯ ಅಥವಾ VBA ಮ್ಯಾಕ್ರೋ.

    ಸೆಲ್‌ನಲ್ಲಿ ನಕಲುಗಳನ್ನು ತೆಗೆದುಹಾಕಲು ಬಳಕೆದಾರ-ವ್ಯಾಖ್ಯಾನಿತ ಕಾರ್ಯ

    ಸೆಲ್‌ನಲ್ಲಿ ನಕಲಿ ಪಠ್ಯವನ್ನು ತೊಡೆದುಹಾಕಲು, ನೀವು ಈ ಕೆಳಗಿನ ಬಳಕೆದಾರ-ವ್ಯಾಖ್ಯಾನಿತ ಕಾರ್ಯವನ್ನು (UDF) ಬಳಸಬಹುದು , RemoveDupeWords :

    ಫಂಕ್ಷನ್ RemoveDupeWords(ಸ್ಟ್ರಿಂಗ್ ಆಗಿ ಪಠ್ಯ , ಐಚ್ಛಿಕ ಡಿಲಿಮಿಟರ್ ಸ್ಟ್ರಿಂಗ್ ಆಗಿ = " " ) ಸ್ಟ್ರಿಂಗ್ ಡಿಮ್ ಡಿಕ್ಷನರಿ ಆಬ್ಜೆಕ್ಟ್ ಡಿಮ್ x, ಭಾಗ ಸೆಟ್ ನಿಘಂಟು = CreateObject ( "Scripting.Dictionary" ) ನಿಘಂಟು .CompareMode = vbTextಪ್ರತಿಯೊಂದು x ಗಾಗಿ ಹೋಲಿಕೆ ಮಾಡಿ ಸ್ಪ್ಲಿಟ್(ಪಠ್ಯ, ಡಿಲಿಮಿಟರ್) ಭಾಗ = ಟ್ರಿಮ್(x) ಭಾಗ "" ಮತ್ತು ನಿಘಂಟಿನಲ್ಲ (ಭಾಗ) ನಂತರ ನಿಘಂಟು.ಭಾಗವನ್ನು ಸೇರಿಸಿ, ಮುಂದೆ ಇದ್ದರೆ ಯಾವುದೂ ಕೊನೆಗೊಳ್ಳುವುದಿಲ್ಲ ನಿಘಂಟು. ಎಣಿಕೆ > 0 ನಂತರ RemoveDupeWords = Join(dictionary.keys,delimiter) Else RemoveDupeWords = "" ಅಂತ್ಯಗೊಳಿಸಿದರೆ ನಿಘಂಟು = ನಥಿಂಗ್ ಎಂಡ್ ಫಂಕ್ಷನ್

    ನಿಮ್ಮ ವರ್ಕ್‌ಬುಕ್‌ನಲ್ಲಿ ಫಂಕ್ಷನ್‌ನ ಕೋಡ್ ಅನ್ನು ಹೇಗೆ ಸೇರಿಸುವುದು

    ನಿಮ್ಮ ಎಕ್ಸೆಲ್‌ಗೆ ಮೇಲಿನ ಕೋಡ್ ಅನ್ನು ಸೇರಿಸಲು, ನೀವು ಇದನ್ನು ಮಾಡಬೇಕಾಗಿದೆ:

    1. ವಿಷುಯಲ್ ಬೇಸಿಕ್ ಎಡಿಟರ್ ತೆರೆಯಲು Alt + F11 ಒತ್ತಿರಿ.
    2. ಎಡ ಫಲಕದಲ್ಲಿ, ThisWorkbook ಬಲ ಕ್ಲಿಕ್ ಮಾಡಿ ಮತ್ತು Insert ಆಯ್ಕೆಮಾಡಿ > ಮಾಡ್ಯೂಲ್ .
    3. ಮೇಲಿನ ಕೋಡ್ ಅನ್ನು ಕೋಡ್ ವಿಂಡೋದಲ್ಲಿ ಅಂಟಿಸಿ.

    ಹೆಚ್ಚಿನ ಮಾಹಿತಿಗಾಗಿ, ದಯವಿಟ್ಟು VBA ಅನ್ನು ಹೇಗೆ ಸೇರಿಸುವುದು ಎಂಬುದನ್ನು ನೋಡಿ Excel ನಲ್ಲಿ ಕೋಡ್.

    RemoveDupeWords ಫಂಕ್ಷನ್ ಸಿಂಟ್ಯಾಕ್ಸ್

    ಸೆಲ್‌ನಲ್ಲಿ ನಕಲಿ ಪಠ್ಯವನ್ನು ತೆಗೆದುಹಾಕಲು ನಮ್ಮ ಹೊಸದಾಗಿ ರಚಿಸಲಾದ ಕಾರ್ಯವು ಈ ಕೆಳಗಿನ ಸಿಂಟ್ಯಾಕ್ಸ್ ಅನ್ನು ಹೊಂದಿದೆ:

    RemoveDupeWords(ಪಠ್ಯ, [ಡಿಲಿಮಿಟರ್])

    ಎಲ್ಲಿ :

    • ಪಠ್ಯ (ಅಗತ್ಯವಿದೆ) - ನೀವು ಪುನರಾವರ್ತಿತ ಪಠ್ಯವನ್ನು ಅಳಿಸಲು ಬಯಸುವ ಸ್ಟ್ರಿಂಗ್ ಅಥವಾ ಸೆಲ್.
    • ಡಿಲಿಮಿಟರ್ (ಐಚ್ಛಿಕ) - ಪುನರಾವರ್ತಿತ ಪಠ್ಯವನ್ನು ಬೇರ್ಪಡಿಸುವ ಡಿಲಿಮಿಟರ್. ಬಿಟ್ಟುಬಿಟ್ಟರೆ, ಡಿಲಿಮಿಟರ್‌ಗಾಗಿ ಸ್ಪೇಸ್ ಅನ್ನು ಬಳಸಲಾಗುತ್ತದೆ.

    ಫಂಕ್ಷನ್ ಕೇಸ್-ಸೆನ್ಸಿಟಿವ್ ಅಲ್ಲ , ಅಂದರೆ ಸಣ್ಣ ಮತ್ತು ದೊಡ್ಡ ಅಕ್ಷರಗಳನ್ನು ಒಂದೇ ಅಕ್ಷರಗಳಾಗಿ ಪರಿಗಣಿಸಲಾಗುತ್ತದೆ.

    RemoveDupeWords ಫಂಕ್ಷನ್ ಅನ್ನು ಹೇಗೆ ಬಳಸುವುದು

    ಒಮ್ಮೆ ಫಂಕ್ಷನ್‌ನ ಕೋಡ್ ಅನ್ನು ನಿಮ್ಮ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ಸೇರಿಸಿದರೆ, ನೀವು Excel ನ ಬಿಲ್ಟ್-ಇನ್ ಫಂಕ್ಷನ್‌ಗಳನ್ನು ಬಳಸುವ ರೀತಿಯಲ್ಲಿಯೇ ಅದನ್ನು ನಿಮ್ಮ ಸೂತ್ರಗಳಲ್ಲಿಯೂ ಬಳಸಬಹುದು.

    ಸಮಾನ ಚಿಹ್ನೆಯ ನಂತರ ಫಂಕ್ಷನ್‌ನ ಹೆಸರನ್ನು ಟೈಪ್ ಮಾಡಲು ಪ್ರಾರಂಭಿಸಿ, ಮತ್ತು ಅದು ಇಂಟೆಲಿಸೆನ್ಸ್ ಸೂತ್ರದಲ್ಲಿ ಕಾಣಿಸುತ್ತದೆ. ಕಾರ್ಯದ ಮೇಲೆ ಡಬಲ್ ಕ್ಲಿಕ್ ಮಾಡಿ ಮತ್ತು ನೀವು ಅದನ್ನು ಹೊಂದುತ್ತೀರಿಕೋಶದಲ್ಲಿ ಸೇರಿಸಲಾಗಿದೆ. ಆರ್ಗ್ಯುಮೆಂಟ್‌ಗಳನ್ನು ವಿವರಿಸಿ, ಮುಚ್ಚುವ ಆವರಣವನ್ನು ಟೈಪ್ ಮಾಡಿ, Enter ಒತ್ತಿರಿ ಮತ್ತು ನಿಮ್ಮ ಸೂತ್ರವು ಪೂರ್ಣಗೊಂಡಿದೆ.

    ಉದಾಹರಣೆಗೆ, A2 ನಿಂದ ಅಲ್ಪವಿರಾಮ ಮತ್ತು ಸ್ಪೇಸ್‌ನಿಂದ ಪ್ರತ್ಯೇಕಿಸಲಾದ ನಕಲಿ ಪದಗಳನ್ನು ಅಳಿಸಲು, B2 ನಲ್ಲಿ ಕೆಳಗಿನ ಸೂತ್ರವನ್ನು ನಮೂದಿಸಿ, ತದನಂತರ ಅಗತ್ಯವಿರುವಷ್ಟು ಸೆಲ್‌ಗಳ ಮೂಲಕ ಅದನ್ನು ಎಳೆಯಿರಿ:

    =RemoveDupeWords(A2, ", ")

    ಪರಿಣಾಮವಾಗಿ, ನೀವು <ನಿಂದ ಪ್ರತ್ಯೇಕಿಸಲಾದ ಅನನ್ಯ ಪದಗಳು ಅಥವಾ ಸಬ್‌ಸ್ಟ್ರಿಂಗ್‌ಗಳ ಪಟ್ಟಿಯನ್ನು ಹೊಂದಿರುತ್ತೀರಿ 17>ಅಲ್ಪವಿರಾಮ ಮತ್ತು ಸ್ಪೇಸ್ :

    ನೀವು ಅಲ್ಪವಿರಾಮದಿಂದ ಬೇರ್ಪಡಿಸಿದ ಪಟ್ಟಿಯನ್ನು ಪಡೆಯಲು ಬಯಸಿದರೆ, ಡಿಲಿಮಿಟರ್‌ಗಾಗಿ ಕೇವಲ ಅಲ್ಪವಿರಾಮ ಬಳಸಿ :

    =RemoveDupeWords(A2, ",")

    ನಿಮ್ಮ ಮೂಲ ಡೇಟಾವನ್ನು ಸ್ಪೇಸ್ ನಿಂದ ಬೇರ್ಪಡಿಸಿದರೆ, ಎರಡನೇ ಆರ್ಗ್ಯುಮೆಂಟ್ " " ಆಗಿರಬೇಕು ಅಥವಾ ಬಿಟ್ಟುಬಿಡಬೇಕು:

    =RemoveDupeWords(A2)

    =RemoveDupeWords(A2)

    ಯಾವುದೇ ಎಕ್ಸೆಲ್ ಕಾರ್ಯದಂತೆ, ಮೂಲ ಡೇಟಾ ಬದಲಾದಾಗ ನಮ್ಮ UDF ಸ್ವಯಂಚಾಲಿತವಾಗಿ ಮರು ಲೆಕ್ಕಾಚಾರ ಮಾಡುತ್ತದೆ, ಆದ್ದರಿಂದ ನಿಮ್ಮ ಫಲಿತಾಂಶಗಳು ಯಾವಾಗಲೂ ನವೀಕೃತವಾಗಿರುತ್ತವೆ.

    ವಿಬಿಎ ಮ್ಯಾಕ್ರೋ ಬಹು ಸೆಲ್‌ಗಳಿಂದ ಏಕಕಾಲದಲ್ಲಿ ನಕಲಿ ಪಠ್ಯವನ್ನು ಅಳಿಸಲು

    ನೀವು ಒಂದೇ ಬಾರಿಗೆ ಅನೇಕ ಸೆಲ್‌ಗಳಿಂದ ಪುನರಾವರ್ತಿತ ಪಠ್ಯವನ್ನು ತೆಗೆದುಹಾಕಲು ಬಯಸಿದರೆ, ನಂತರ ನೀವು RemoveDupeWords ಫಂಕ್ಷನ್‌ಗೆ ಕರೆ ಮಾಡಬಹುದು ಒಂದು ಮ್ಯಾಕ್ರೋ ಒಳಗೆ ಮೀ. ಈ ಸಂದರ್ಭದಲ್ಲಿ, ಡಿಲಿಮಿಟರ್ ಅನ್ನು ಹಾರ್ಡ್‌ಕೋಡ್ ಮಾಡಲಾಗಿದೆ ಮತ್ತು ಡಿಲಿಮಿಟರ್ ಬದಲಾದಾಗಲೆಲ್ಲಾ ನೀವು ಮ್ಯಾಕ್ರೋ ಕೋಡ್ ಅನ್ನು ನವೀಕರಿಸಬೇಕಾಗುತ್ತದೆ. ಪರ್ಯಾಯವಾಗಿ, ನೀವು ಸಾಮಾನ್ಯ ಡಿಲಿಮಿಟರ್‌ಗಳಿಗೆ ಕೆಲವು ಕೋಡ್ ವ್ಯತ್ಯಾಸಗಳನ್ನು ಬರೆಯಬಹುದು, ಒಂದು ಸ್ಪೇಸ್, ​​ಅಲ್ಪವಿರಾಮ, ಅಥವಾ ಅಲ್ಪವಿರಾಮ ಮತ್ತು ಸ್ಥಳ, ಮತ್ತು ನಿಮ್ಮ ಮ್ಯಾಕ್ರೋಗಳಿಗೆ ಅರ್ಥಪೂರ್ಣ ಹೆಸರುಗಳನ್ನು ನೀಡಿ, ಉದಾ. RemoveDupesDelimSpace .

    ಮ್ಯಾಕ್ರೋ ಕೋಡ್ ಈ ಕೆಳಗಿನಂತಿದೆ:

    ಸಾರ್ವಜನಿಕ ಉಪ RemoveDupeWords2() ಅಪ್ಲಿಕೇಶನ್‌ನಲ್ಲಿ ಪ್ರತಿ ಕೋಶಕ್ಕೆ ಶ್ರೇಣಿಯಂತೆ ಕೋಶವನ್ನು ಮಂದಗೊಳಿಸಿ.ಆಯ್ಕೆ ಕೋಶ.Value = RemoveDupeWords(cell.Value, ", " ) ಮುಂದಿನ ಅಂತ್ಯ ಉಪ

    ಮೇಲಿನ ಕೋಡ್‌ನಲ್ಲಿ, ಡಿಲಿಮಿಟರ್ ಅಲ್ಪವಿರಾಮ ಮತ್ತು ಸ್ಪೇಸ್ . ವಿಭಿನ್ನ ಡಿಲಿಮಿಟರ್ ಅನ್ನು ಬಳಸಲು, ", " ಅನ್ನು ಈ ಕೋಡ್ ಸಾಲಿನಲ್ಲಿ ಮತ್ತೊಂದು ಅಕ್ಷರ(ಗಳು) ನೊಂದಿಗೆ ಬದಲಾಯಿಸಿ:

    cell.Value = RemoveDupeWords(cell.Value, ", ")

    ಗಮನಿಸಿ. ಮ್ಯಾಕ್ರೋ ಕೆಲಸ ಮಾಡಲು, ಅದರ ಕೋಡ್ ಮತ್ತು RemoveDupeWords ಫಂಕ್ಷನ್‌ನ ಕೋಡ್ ಅನ್ನು ಒಂದೇ ಮಾಡ್ಯೂಲ್‌ನಲ್ಲಿ ಇರಿಸಬೇಕು.

    ಮ್ಯಾಕ್ರೋ ಅನ್ನು ಹೇಗೆ ಬಳಸುವುದು

    ನಿಮ್ಮ ಸ್ವಂತ ವರ್ಕ್‌ಬುಕ್‌ನಲ್ಲಿ ಮ್ಯಾಕ್ರೋ ಕೋಡ್ ಅನ್ನು ಸೇರಿಸಿ ಅಥವಾ ಕೋಡ್‌ನೊಂದಿಗೆ ನಮ್ಮ ಮಾದರಿ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ತೆರೆಯಿರಿ, ತದನಂತರ ಮ್ಯಾಕ್ರೋವನ್ನು ಚಲಾಯಿಸಲು ಈ ಕೆಳಗಿನ ಹಂತಗಳನ್ನು ಮಾಡಿ.

    1. ನೀವು ಪುನರಾವರ್ತಿತ ಪಠ್ಯವನ್ನು ತೆಗೆದುಹಾಕಲು ಬಯಸುವ ಸೆಲ್‌ಗಳ ಶ್ರೇಣಿಯನ್ನು ಆಯ್ಕೆಮಾಡಿ.
    2. ಮ್ಯಾಕ್ರೋ ಸಂವಾದ ಪೆಟ್ಟಿಗೆಯನ್ನು ತೆರೆಯಲು Alt + F8 ಅನ್ನು ಒತ್ತಿರಿ.
    3. ಮ್ಯಾಕ್ರೋಗಳ ಪಟ್ಟಿಯಲ್ಲಿ, RemoveDupeWords2 ಅನ್ನು ಆಯ್ಕೆ ಮಾಡಿ.
    4. Run ಕ್ಲಿಕ್ ಮಾಡಿ.

    ಹೆಚ್ಚಿನ ವಿವರಗಳಿಗಾಗಿ, ದಯವಿಟ್ಟು ಹೇಗೆ ಎಂಬುದನ್ನು ನೋಡಿ Excel ನಲ್ಲಿ ಮ್ಯಾಕ್ರೋ ರನ್ ಮಾಡಿ.

    ಗಮನಿಸಿ. ಮ್ಯಾಕ್ರೋದ ಕ್ರಿಯೆಯನ್ನು ರದ್ದುಮಾಡಲು ಸಾಧ್ಯವಿಲ್ಲ , ಮ್ಯಾಕ್ರೋವನ್ನು ಬಳಸುವ ಮೊದಲು ನಿಮ್ಮ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ಉಳಿಸಲು ನಾವು ಬಲವಾಗಿ ಶಿಫಾರಸು ಮಾಡುತ್ತೇವೆ. ಈ ರೀತಿಯಾಗಿ, ಏನಾದರೂ ತಪ್ಪಾದಲ್ಲಿ, ನೀವು ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ಸರಳವಾಗಿ ಮುಚ್ಚಬಹುದು ಮತ್ತು ಪುನಃ ತೆರೆಯಬಹುದು ಮತ್ತು ನೀವು ಇದ್ದ ಸ್ಥಳಕ್ಕೆ ನೀವು ಹಿಂತಿರುಗುತ್ತೀರಿ. ಅಥವಾ ಮ್ಯಾಕ್ರೋನಿಂದ ಪ್ರಭಾವಿತವಾಗಬಹುದಾದ ವರ್ಕ್‌ಶೀಟ್ (ಗಳ) ನಕಲನ್ನು ನೀವು ಮಾಡಬಹುದು.

    ಸೆಲ್‌ನಲ್ಲಿ ನಕಲು ಅಕ್ಷರಗಳನ್ನು ತೆಗೆದುಹಾಕುವುದು ಹೇಗೆ

    ಸಮಸ್ಯೆ : ನೀವು ಸೆಲ್‌ನಲ್ಲಿ ಒಂದೇ ಅಕ್ಷರದ ಬಹು ಘಟನೆಗಳನ್ನು ಹೊಂದಿದ್ದೀರಿ, ಪ್ರತಿಕೋಶವು ನಿರ್ದಿಷ್ಟ ಅಕ್ಷರದ ಒಂದು ಸಂಭವವನ್ನು ಮಾತ್ರ ಹೊಂದಿರಬೇಕು.

    ಪರಿಹಾರ : ಕಸ್ಟಮ್ ಬಳಕೆದಾರ-ವ್ಯಾಖ್ಯಾನಿತ ಕಾರ್ಯ ಅಥವಾ VBA ಮ್ಯಾಕ್ರೋ.

    ಪುನರಾವರ್ತಿತ ಅಕ್ಷರಗಳನ್ನು ಅಳಿಸಲು ಬಳಕೆದಾರ-ವ್ಯಾಖ್ಯಾನಿತ ಕಾರ್ಯ

    ಮೊದಲ ಘಟನೆಗಳನ್ನು ಮಾತ್ರ ಇರಿಸಿಕೊಂಡು ಸೆಲ್‌ನಲ್ಲಿ ನಕಲಿ ಅಕ್ಷರಗಳನ್ನು ತೆಗೆದುಹಾಕಲು, ನೀವು ಕೆಳಗಿನ ಬಳಕೆದಾರ-ವ್ಯಾಖ್ಯಾನಿತ ಕಾರ್ಯವನ್ನು ಬಳಸಬಹುದು, RemoveDupeChars :

    ಫಂಕ್ಷನ್ RemoveDupeChars(ಸ್ಟ್ರಿಂಗ್ ಆಸ್ ಸ್ಟ್ರಿಂಗ್ ) ಸ್ಟ್ರಿಂಗ್ ಡಿಮ್ ಡಿಕ್ಷನರಿಯಾಗಿ ಆಬ್ಜೆಕ್ಟ್ ಡಿಮ್ ಚಾರ್ ಆಗಿ ಸ್ಟ್ರಿಂಗ್ ಡಿಮ್ ಫಲಿತಾಂಶ ಸ್ಟ್ರಿಂಗ್ ಸೆಟ್ ಡಿಕ್ಷನರಿಯಾಗಿ = CreateObject ( "Scripting.Dictionary" ) ಫಾರ್ i = 1 ರಿಂದ ಲೆನ್(ಪಠ್ಯ) ಚಾರ್ = ಮಧ್ಯ(ಪಠ್ಯ, i, 1 ) ನಿಘಂಟಿನಲ್ಲದಿದ್ದರೆ. ಅಸ್ತಿತ್ವದಲ್ಲಿದೆ(ಚಾರ್) ನಂತರ ನಿಘಂಟು. ಚಾರ್ ಸೇರಿಸಿ, ಏನೂ ಫಲಿತಾಂಶವಿಲ್ಲ = ಫಲಿತಾಂಶ & char End ಮುಂದಾದರೆ RemoveDupeChars = ಫಲಿತಾಂಶವನ್ನು ಹೊಂದಿಸಿ ನಿಘಂಟು = ನಥಿಂಗ್ ಎಂಡ್ ಫಂಕ್ಷನ್

    ನಿಮ್ಮ ವರ್ಕ್‌ಬುಕ್‌ಗೆ ಫಂಕ್ಷನ್‌ನ ಕೋಡ್ ಅನ್ನು ಸೇರಿಸಲು, ಹಂತಗಳು ಹಿಂದಿನ ಉದಾಹರಣೆಯಂತೆಯೇ ಇರುತ್ತವೆ.

    RemoveDupeChars ಫಂಕ್ಷನ್ ಸಿಂಟ್ಯಾಕ್ಸ್

    ಈ ಕಸ್ಟಮ್ ಫಂಕ್ಷನ್‌ನ ಸಿಂಟ್ಯಾಕ್ಸ್ ಬಹುಶಃ ಸರಳವಾಗಿದೆ - ಕೇವಲ ಒಂದು ಆರ್ಗ್ಯುಮೆಂಟ್ ಅಗತ್ಯವಿದೆ:

    RemoveDupeChars(text)

    ಇಲ್ಲಿ text ಎಂಬುದು ನೀವು ಬಯಸುವ ಸ್ಟ್ರಿಂಗ್ ಅಥವಾ ಸೆಲ್ ಆಗಿದೆ ನಕಲಿ ಅಕ್ಷರಗಳನ್ನು ತೆಗೆದುಹಾಕಲು.

    ಕಾರ್ಯವು ಕೇಸ್-ಸೆನ್ಸಿಟಿವ್ ಮತ್ತು ಸಣ್ಣ ಮತ್ತು ದೊಡ್ಡಕ್ಷರಗಳನ್ನು ವಿಭಿನ್ನ ಅಕ್ಷರಗಳಾಗಿ ಪರಿಗಣಿಸುತ್ತದೆ.

    RemoveDupeChars ಕಾರ್ಯವನ್ನು ಹೇಗೆ ಬಳಸುವುದು

    RemoveDupeWords ನ ಬಳಕೆಯ ಕುರಿತು ನಾವು ಹೇಳಿದ್ದೆಲ್ಲವೂ RemoveDupeChars ಗಾಗಿ ನಿಜವಾಗಿದೆ. ಆದ್ದರಿಂದ, ಹೋಗದೆಸಿದ್ಧಾಂತಕ್ಕೆ ತುಂಬಾ ಹೆಚ್ಚು, ನಾವು ನೇರವಾಗಿ ಉದಾಹರಣೆಗೆ ಹೋಗೋಣ.

    A2 ರಿಂದ ಪ್ರಾರಂಭವಾಗುವ ಕಾಲಮ್ A ನಿಂದ ನಕಲಿ ಅಕ್ಷರಗಳನ್ನು ಅಳಿಸಲು, B2 ನಲ್ಲಿ ಈ ಸೂತ್ರವನ್ನು ನಮೂದಿಸಿ ಮತ್ತು ಅದನ್ನು ನಕಲಿಸಿ:

    =RemoveDupeChars(A2)

    ಕೆಳಗಿನ ಚಿತ್ರದಲ್ಲಿ ನೀವು ನೋಡುವಂತೆ, ಕಾರ್ಯವು ಅಕ್ಷರಗಳು, ಅಂಕೆಗಳು ಮತ್ತು ವಿಶೇಷ ಚಿಹ್ನೆಗಳು ಸೇರಿದಂತೆ ವಿವಿಧ ಅಕ್ಷರ ಪ್ರಕಾರಗಳನ್ನು ಯಶಸ್ವಿಯಾಗಿ ನಿರ್ವಹಿಸುತ್ತದೆ:

    ಸಲಹೆ. ಸ್ಪೇಸ್, ​​ಅಲ್ಪವಿರಾಮ ಅಥವಾ ಹೈಫನ್‌ನಂತಹ ಕೆಲವು ಡಿಲಿಮಿಟರ್ ಮೂಲಕ ನಿಮ್ಮ ಅಕ್ಷರಗಳನ್ನು ಪರಸ್ಪರ ಬೇರ್ಪಡಿಸಿದರೆ, ಹಿಂದಿನ ಉದಾಹರಣೆಯಲ್ಲಿ ತೋರಿಸಿರುವಂತೆ RemoveDupeWords ಕಾರ್ಯವನ್ನು ಬಳಸಿ. ಸೆಲ್‌ನಿಂದ ಅದೇ ಅಕ್ಷರಗಳನ್ನು ತೆಗೆದುಹಾಕಲು

    VBA ಮ್ಯಾಕ್ರೋ

    RemoveDupeWords ನಂತೆ, RemoveDupeChars ಕಾರ್ಯವನ್ನು ಮ್ಯಾಕ್ರೋದೊಳಗೂ ಕರೆಯಬಹುದು:

    ಸಾರ್ವಜನಿಕ Sub RemoveDupeChars2() ಅಪ್ಲಿಕೇಶನ್‌ನಲ್ಲಿನ ಪ್ರತಿ ಸೆಲ್‌ಗೆ ಶ್ರೇಣಿಯಂತೆ ಸೆಲ್ ಅನ್ನು ಮಂದಗೊಳಿಸಿ.ಆಯ್ಕೆ ಕೋಶ.ಮೌಲ್ಯ = RemoveDupeChars(cell.Value) ಮುಂದಿನ ಅಂತ್ಯ ಉಪ

    ಈ UDF ಯಾವುದೇ ಡಿಲಿಮಿಟರ್ ಅನ್ನು ಬಳಸದ ಕಾರಣ, ನೀವು ಇದರಲ್ಲಿ ಯಾವುದೇ ಹೊಂದಾಣಿಕೆಗಳನ್ನು ಮಾಡಬೇಕಾಗಿಲ್ಲ ಕೋಡ್.

    ಗಮನಿಸಿ. ಮ್ಯಾಕ್ರೋ ಕೆಲಸ ಮಾಡಲು, ಅದರ ಕೋಡ್ ಮತ್ತು RemoveDupeChars UDF ನ ಕೋಡ್ ಅನ್ನು VBA ಎಡಿಟರ್‌ನಲ್ಲಿ ಅದೇ ಮಾಡ್ಯೂಲ್‌ನಲ್ಲಿ ಇರಿಸಬೇಕು.

    ಮ್ಯಾಕ್ರೋ ಅನ್ನು ಹೇಗೆ ಬಳಸುವುದು

    ನೀವು ಈಗಾಗಲೇ ನಿಮ್ಮ ವರ್ಕ್‌ಬುಕ್‌ನಲ್ಲಿ ಮ್ಯಾಕ್ರೋ ಕೋಡ್ ಅನ್ನು ಸೇರಿಸಿದ್ದೀರಿ ಅಥವಾ ಕೋಡ್ ಅನ್ನು ಹೊಂದಿರುವ ನಮ್ಮ ಮಾದರಿ ವರ್ಕ್‌ಬುಕ್ ಅನ್ನು ತೆರೆದಿದ್ದೀರಿ ಎಂದು ಭಾವಿಸಿದರೆ, ಮ್ಯಾಕ್ರೋವನ್ನು ಈ ರೀತಿಯಲ್ಲಿ ಪ್ರಾರಂಭಿಸಿ.

    1. ನೀವು ಪುನರಾವರ್ತಿತ ಅಕ್ಷರಗಳನ್ನು ತೆಗೆದುಹಾಕಲು ಬಯಸುವ ಸೆಲ್‌ಗಳ ಶ್ರೇಣಿಯನ್ನು ಆಯ್ಕೆಮಾಡಿ.
    2. ಮ್ಯಾಕ್ರೋ ಸಂವಾದವನ್ನು ತೆರೆಯಲು Alt + F8 ಅನ್ನು ಒತ್ತಿರಿಬಾಕ್ಸ್.
    3. ಮ್ಯಾಕ್ರೋಗಳ ಪಟ್ಟಿಯಲ್ಲಿ, RemoveDupeChars2 ಆಯ್ಕೆಮಾಡಿ.
    4. Run ಕ್ಲಿಕ್ ಮಾಡಿ.

    ಅಲ್ಟಿಮೇಟ್ ಸೂಟ್‌ನೊಂದಿಗೆ ನಕಲಿ ಸಬ್‌ಸ್ಟ್ರಿಂಗ್‌ಗಳನ್ನು ತೆಗೆದುಹಾಕಿ

    ಈ ಟ್ಯುಟೋರಿಯಲ್‌ನ ಆರಂಭದಲ್ಲಿ, ಸೆಲ್‌ನೊಳಗೆ ನಕಲುಗಳನ್ನು ತೆಗೆದುಹಾಕಲು ಮೈಕ್ರೋಸಾಫ್ಟ್ ಎಕ್ಸೆಲ್ ಅಂತರ್ಗತ ವೈಶಿಷ್ಟ್ಯವನ್ನು ಹೊಂದಿಲ್ಲ ಎಂದು ಉಲ್ಲೇಖಿಸಲಾಗಿದೆ. ಆದರೆ ನಮ್ಮ ಅಲ್ಟಿಮೇಟ್ ಸೂಟ್ ಮಾಡುತ್ತದೆ!

    ನೀವು ಅದನ್ನು ನಕಲು ರಿಮೂವರ್ ಡ್ರಾಪ್-ಡೌನ್ ಮೆನುವಿನಲ್ಲಿ Ablebits ಡೇಟಾ ಟ್ಯಾಬ್‌ನಲ್ಲಿ Dedupe<2 ನಲ್ಲಿ ಕಾಣಬಹುದು> ಗುಂಪು. ನಕಲಿ ಸಬ್‌ಸ್ಟ್ರಿಂಗ್‌ಗಳನ್ನು ತೆಗೆದುಹಾಕಿ ಆಯ್ಕೆಯು ನಿಮ್ಮ ಎಕ್ಸೆಲ್‌ನಲ್ಲಿ ಕಾಣಿಸದಿದ್ದರೆ, ನೀವು ಅಲ್ಟಿಮೇಟ್ ಸೂಟ್‌ನ ಇತ್ತೀಚಿನ ಆವೃತ್ತಿಯನ್ನು ಸ್ಥಾಪಿಸಿರುವಿರಿ ಎಂದು ಖಚಿತಪಡಿಸಿಕೊಳ್ಳಿ (ಉಚಿತ ಪ್ರಯೋಗವನ್ನು ಇಲ್ಲಿ ಡೌನ್‌ಲೋಡ್ ಮಾಡಬಹುದು).

    3>

    5 ಸೆಕೆಂಡುಗಳಲ್ಲಿ ಬಹು ಸೆಲ್‌ಗಳಿಂದ ಪುನರಾವರ್ತಿತ ಪದಗಳು ಅಥವಾ ಪಠ್ಯವನ್ನು ತೆಗೆದುಹಾಕಲು (ಪ್ರತಿ ಹಂತಕ್ಕೆ ಒಂದು ಸೆಕೆಂಡ್ :), ನೀವು ಮಾಡಬೇಕಾಗಿರುವುದು ಇದನ್ನೇ:

    1. ನಿಮ್ಮ ಮೂಲ ಡೇಟಾವನ್ನು ಆಯ್ಕೆಮಾಡಿ ಮತ್ತು ನಕಲು ಸಬ್‌ಸ್ಟ್ರಿಂಗ್‌ಗಳನ್ನು ತೆಗೆದುಹಾಕಿ ಉಪಕರಣ.
    2. ಡಿಲಿಮಿಟರ್ ಅನ್ನು ನಿರ್ದಿಷ್ಟಪಡಿಸಿ.
    3. ಸತತ ಡಿಲಿಮಿಟರ್‌ಗಳನ್ನು ಅನ್ನು ಒಂದು (ಡೀಫಾಲ್ಟ್) ಎಂದು ಪರಿಗಣಿಸಬೇಕೆ ಎಂಬುದನ್ನು ವಿವರಿಸಿ.
    4. ಕೇಸ್-ಸೆನ್ಸಿಟಿವ್ ಅಥವಾ ಕೇಸ್-ಇನ್ಸೆನ್ಸಿಟಿವ್ ಹುಡುಕಾಟವನ್ನು ನಿರ್ವಹಿಸಬೇಕೆ ಎಂಬುದನ್ನು ಆರಿಸಿ.
    5. ತೆಗೆದುಹಾಕು ಕ್ಲಿಕ್ ಮಾಡಿ.

    ಮುಗಿದಿದೆ! VBA ಅಥವಾ ಸೂತ್ರಗಳೊಂದಿಗೆ ಯಾವುದೇ ಫಿಡ್ಲಿಂಗ್ ಇಲ್ಲ, ತ್ವರಿತ ಮತ್ತು ನಿಖರವಾದ ಫಲಿತಾಂಶಗಳು.

    ಈ ಅದ್ಭುತ ಆಡ್-ಇನ್ ಕುರಿತು ಇನ್ನಷ್ಟು ತಿಳಿದುಕೊಳ್ಳಲು, ದಯವಿಟ್ಟು ಅದರ ಮುಖಪುಟಕ್ಕೆ ಭೇಟಿ ನೀಡಿ. ಅಥವಾ ಇನ್ನೂ ಉತ್ತಮ, ಕೆಳಗಿನ ಮೌಲ್ಯಮಾಪನ ಆವೃತ್ತಿಯನ್ನು ಡೌನ್‌ಲೋಡ್ ಮಾಡಿ ಮತ್ತು ಅದನ್ನು ಪ್ರಯತ್ನಿಸಿ!

    ಸೆಲ್‌ನಲ್ಲಿ ನಕಲಿ ಪಠ್ಯವನ್ನು ಹೇಗೆ ತೆಗೆದುಹಾಕುವುದು.ಓದಿದ್ದಕ್ಕಾಗಿ ನಾನು ನಿಮಗೆ ಧನ್ಯವಾದಗಳು ಮತ್ತು ಮುಂದಿನ ವಾರ ನಮ್ಮ ಬ್ಲಾಗ್‌ನಲ್ಲಿ ನಿಮ್ಮನ್ನು ನೋಡುತ್ತೇನೆ ಎಂದು ಭಾವಿಸುತ್ತೇನೆ!

    ಲಭ್ಯವಿರುವ ಡೌನ್‌ಲೋಡ್‌ಗಳು

    ಸೆಲ್‌ನಲ್ಲಿ ನಕಲುಗಳನ್ನು ತೆಗೆದುಹಾಕಲು ಉದಾಹರಣೆಗಳು (.xlsm ಫೈಲ್)

    ಅಲ್ಟಿಮೇಟ್ ಸೂಟ್ 14 -ದಿನ ಪೂರ್ಣ-ಕಾರ್ಯಕಾರಿ ಆವೃತ್ತಿ (.exe ಫೈಲ್)

    ಮೈಕೆಲ್ ಬ್ರೌನ್ ಸಾಫ್ಟ್‌ವೇರ್ ಪರಿಕರಗಳನ್ನು ಬಳಸಿಕೊಂಡು ಸಂಕೀರ್ಣ ಪ್ರಕ್ರಿಯೆಗಳನ್ನು ಸರಳಗೊಳಿಸುವ ಉತ್ಸಾಹವನ್ನು ಹೊಂದಿರುವ ಮೀಸಲಾದ ತಂತ್ರಜ್ಞಾನ ಉತ್ಸಾಹಿ. ಟೆಕ್ ಉದ್ಯಮದಲ್ಲಿ ಒಂದು ದಶಕಕ್ಕೂ ಹೆಚ್ಚು ಅನುಭವದೊಂದಿಗೆ, ಅವರು ಮೈಕ್ರೋಸಾಫ್ಟ್ ಎಕ್ಸೆಲ್ ಮತ್ತು ಔಟ್‌ಲುಕ್, ಹಾಗೆಯೇ ಗೂಗಲ್ ಶೀಟ್‌ಗಳು ಮತ್ತು ಡಾಕ್ಸ್‌ನಲ್ಲಿ ತಮ್ಮ ಕೌಶಲ್ಯಗಳನ್ನು ಹೆಚ್ಚಿಸಿದ್ದಾರೆ. ಮೈಕೆಲ್ ಅವರ ಬ್ಲಾಗ್ ತನ್ನ ಜ್ಞಾನ ಮತ್ತು ಪರಿಣತಿಯನ್ನು ಇತರರೊಂದಿಗೆ ಹಂಚಿಕೊಳ್ಳಲು ಸಮರ್ಪಿಸಲಾಗಿದೆ, ಉತ್ಪಾದಕತೆ ಮತ್ತು ದಕ್ಷತೆಯನ್ನು ಸುಧಾರಿಸಲು ಸುಲಭವಾಗಿ ಅನುಸರಿಸಲು ಸಲಹೆಗಳು ಮತ್ತು ಟ್ಯುಟೋರಿಯಲ್‌ಗಳನ್ನು ಒದಗಿಸುತ್ತದೆ. ನೀವು ಅನುಭವಿ ವೃತ್ತಿಪರರಾಗಿರಲಿ ಅಥವಾ ಹರಿಕಾರರಾಗಿರಲಿ, ಮೈಕೆಲ್ ಅವರ ಬ್ಲಾಗ್ ಅಮೂಲ್ಯವಾದ ಒಳನೋಟಗಳನ್ನು ಮತ್ತು ಈ ಅಗತ್ಯ ಸಾಫ್ಟ್‌ವೇರ್ ಪರಿಕರಗಳಿಂದ ಹೆಚ್ಚಿನದನ್ನು ಪಡೆಯಲು ಪ್ರಾಯೋಗಿಕ ಸಲಹೆಯನ್ನು ನೀಡುತ್ತದೆ.