સામગ્રીઓનું કોષ્ટક
જ્યારે પણ તમને જરૂર હોય ત્યારે તમે એક શીટથી બીજી શીટ અથવા વર્કબુકમાં શ્રેણીની નકલ કરી શકો છો. કોપી અને પેસ્ટના વિવિધ પ્રકારો છે. આ લેખને અનુસરીને, તમે એક્સેલ VBA કોપી રેન્જને બીજી શીટમાં વાપરવાની વિવિધ રીતો જાણી શકશો.
સમજીકરણને જીવંત બનાવવા માટે, હું એક નમૂના ડેટાસેટનો ઉપયોગ કરવા જઈ રહ્યો છું જે ચોક્કસ વ્યક્તિઓની વ્યક્તિગત માહિતીને રજૂ કરે છે. . ડેટાસેટમાં 4 કૉલમ છે. આ કૉલમ્સ છે પ્રથમ નામ, છેલ્લું નામ, પૂરું નામ, અને ઈમેલ .
પ્રેક્ટિસ કરવા માટે વર્કબુક ડાઉનલોડ કરો
VBA રેંજને બીજી શીટમાં કૉપિ કરો ફોર્મેટ સાથે બીજી શીટમાંજ્યારે પણ તમે ફોર્મેટ <3 સાથે એક શીટથી બીજી શીટમાં શ્રેણી કૉપિ કરવા માંગતા હો ત્યારે તમે નો ઉપયોગ કરીને તે કરી શકો છો. 2>VBA .
અહીં, હું ડેટાસેટ શીટથી ફોર્મેટ શીટ સુધીની શ્રેણીની કૉપિ કરીશ.
ચાલો પ્રક્રિયા શરૂ કરીએ,
પ્રથમ, વિકાસકર્તા ટેબ >> ખોલો. વિઝ્યુઅલ બેઝિક
તમે VBA <ખોલવા માટે ALT + F11 કીબોર્ડનો પણ ઉપયોગ કરી શકો છો. 3>એડિટર.
આગળ, તે એપ્લીકેશન માટે માઇક્રોસોફ્ટ વિઝ્યુઅલ બેઝિક નામની નવી વિન્ડો ખોલશે.
ત્યાંથી, ઇનસર્ટ <3 ખોલો>>> મોડ્યુલ પસંદ કરો.
A મોડ્યુલ ખુલશે પછી ખોલવામાં નીચેનો કોડ લખો >> મેક્રો જુઓ
➤ એક સંવાદ બોક્સ પૉપ અપ થશે.
હવે, મેક્રો નામ માંથી Copy_Range_BelowLastCell_AnotherSheets પસંદ કરો Macros in માં પણ વર્કબુક પસંદ કરો.
છેવટે, ચલાવો 3 | 3>બીજી વર્કબુક શીટની છેલ્લી પંક્તિ સુધીની શ્રેણી તમે VBA નો પણ ઉપયોગ કરી શકો છો.
અહીં, હું ડેટાસેટ2 માંથી શ્રેણી કોપી કરીશ Book2 ની શીટ1 પરંતુ પ્રથમ બિન-ખાલી કોષમાંથી શીટ.
પ્રક્રિયા શરૂ કરવા માટે,
પ્રથમ, વિકાસકર્તા ટેબ >> ખોલો વિઝ્યુઅલ બેઝિક
તમે VBA એડિટર ખોલવા માટે ALT + F11 કીબોર્ડનો પણ ઉપયોગ કરી શકો છો.
આગળ, તે એપ્લિકેશન માટે Microsoft Visual Basic ની નવી વિન્ડો ખોલશે.
ત્યાંથી, Insert <3 ખોલો>>> મોડ્યુલ પસંદ કરો.
A મોડ્યુલ ખુલશે પછી ખોલેલા મોડ્યુલ માં નીચેનો કોડ લખો.
1696
અહીં, મેં પેટા પ્રક્રિયા Copy_Range_BelowLastCell_To_Another_Workbook જ્યાં wsCopy અને wsDestination <જાહેર કર્યું છે 3>છે વર્કશીટ પ્રકાર, lCopyLastRow અને lDestLastRow લાંબા પ્રકાર છે.
પ્રથમ, શીટને કૉપિ કરવા માટે અને ગંતવ્ય શીટ માટે ચલોને સેટ કરવા માટે સેટ વપરાશ.
આગળ, કૉપિ રેન્જમાં કૉલમ A ના ડેટાના આધારે છેલ્લી પંક્તિ શોધવા માટે પંક્તિ પદ્ધતિનો ઉપયોગ કર્યો.
ફરીથી, પંક્તિ પદ્ધતિનો ઉપયોગ કર્યો ગંતવ્ય શ્રેણીમાં કૉલમ A ના ડેટાના આધારે પ્રથમ ખાલી પંક્તિ શોધવા માટે પણ ઓફસેટ નો ઉપયોગ એક ગુણધર્મને નીચે ખસેડવા માટે થાય છે.
છેવટે, કોપી કરેલ નો ડેટા ડેટાસેટ2 શીટમાંથી એક્સેલ VBA કોપી રેન્જને બીજી શીટ.xlsm વર્કબુક ગંતવ્ય સુધી શીટ1 વર્કબુક Book2.xlsx .
હવે, સેવ કોડ અને વર્કશીટ પર પાછા જાઓ.
આગળ, જુઓ ટેબ >> ખોલો. મેક્રોઝ >> પસંદ કરો મેક્રો જુઓ
➤ એક સંવાદ બોક્સ પોપ અપ થશે.
હવે, મેક્રો નામ માંથી Copy_Range_BelowLastCell_To_Another_Workbook પસંદ કરો મેક્રો માં પણ વર્કબુક પસંદ કરો.
છેવટે, ચલાવો પસંદ કરેલ મેક્રો .
તેથી, તે હાલની શીટમાંથી બીજી વર્કબુકની છેલ્લી પંક્તિ સુધી પસંદ કરેલ શ્રેણીને કૉપિ કરશે.
<0
પ્રેક્ટિસ વિભાગ
મેં એક્સેલ VBA કૉપિ રેન્જની આ સમજાવેલી રીતોનો અભ્યાસ કરવા માટે વર્કબુકમાં પ્રેક્ટિસ શીટ પ્રદાન કરી છે બીજી શીટ પર.
નિષ્કર્ષ
આ લેખમાં, મેં 8 વિવિધ પ્રકારની સરળ અને ઝડપી રીતો સમજાવી છે.એક્સેલ VBA શ્રેણીને બીજી શીટમાં કૉપિ કરો. આ વિવિધ રીતો તમને એક શીટમાંથી બીજી શીટમાં અને એક શીટથી બીજી વર્કબુકમાં શ્રેણીની નકલ કરવામાં મદદ કરશે. સૌથી છેલ્લે, જો તમારી પાસે કોઈપણ પ્રકારના સૂચનો, વિચારો અને પ્રતિસાદ હોય, તો કૃપા કરીને નીચે ટિપ્પણી કરવા માટે નિઃસંકોચ કરો.
મોડ્યુલ.9675
અહીં, મેં પેટા પ્રક્રિયા Copy_Range_withFormat_ToAnother_Sheet
જાહેર કરી છે મેં હાલની શીટમાંથી શીટના નામ WithFormat પર કૉપિ કરવા માટે B1:E10 શ્રેણી લીધી છે.
અહીં, મેં કૉપિ નો ઉપયોગ કર્યો છે. પસંદ કરેલ શ્રેણીની નકલ કરવાની પદ્ધતિ, કૉપિ કરો પદ્ધતિ કોઈપણ શ્રેણીને ફોર્મેટ સાથે કૉપિ કરે છે.
છેવટે, કોડ સાચવો અને વર્કશીટ પર પાછા જાઓ .
આગળ, જુઓ ટેબ >> ખોલો. મેક્રોઝ >> મેક્રો જુઓ
➤ એક સંવાદ બોક્સ પૉપ અપ થશે.
હવે, મેક્રો નામ માંથી Copy_Range_withFormat_ToAnother_Sheet પસંદ કરો મેક્રોમાં માં વર્કબુક પણ પસંદ કરો.
છેવટે, ચલાવો પસંદ કરેલ મેક્રો .
તેથી, તે મેં પસંદ કરેલી નવી શીટમાં ફોર્મેટ સાથે પસંદ કરેલ શ્રેણીની કૉપિ કરશે ( 2 VBA નો ઉપયોગ કરીને ફોર્મેટ વગર અન્ય શીટમાં શ્રેણીની કોપી શક્ય.
અહીં, હું કૉપિ <3 કરીશ ડેટાસેટ શીટથી વિના ફોર્મેટ શીટ સુધીની શ્રેણી.
ચાલો પ્રક્રિયા શરૂ કરીએ,
હવે, વિકાસકર્તા ખોલો ટેબ >> વિઝ્યુઅલ બેઝિક પસંદ કરો ( ALT + F11 નો ઉપયોગ કરો)
આગળ, તે ખુલશે એપ્લિકેશન માટે માઇક્રોસોફ્ટ વિઝ્યુઅલ બેઝિક.
પછી, ખોલો ઇનસર્ટ >> મોડ્યુલ પસંદ કરો.
A મોડ્યુલ ખુલશે પછી ખોલેલા મોડ્યુલ માં નીચેનો કોડ લખો.
6207
અહીં, મેં પેટા પ્રક્રિયા Copy_Range_WithoutFormat_Toanother_Sheet
મેં શ્રેણી લીધી છે B1:E10 હાલની શીટમાંથી શીટના નામ WithoutFormat પર કૉપિ કરવા માટે.
અહીં, મેં પસંદ કરેલ શ્રેણીની નકલ કરવા માટે Copy પદ્ધતિનો ઉપયોગ કર્યો છે. ઉલ્લેખિત Paste:=xlPasteValues PasteSpecial પદ્ધતિમાં જેથી તે ફક્ત પસંદ કરેલ શ્રેણીના મૂલ્યો ને જ પેસ્ટ કરશે, ફોર્મેટને નહીં.
છેવટે , સેવ કોડ અને વર્કશીટ પર પાછા જાઓ.
આગળ, જુઓ ટેબ >> ખોલો. મેક્રોઝ >> મેક્રો જુઓ
➤ એક સંવાદ બોક્સ પૉપ અપ થશે.
હવે, મેક્રો નામ માંથી Copy_Range_WithoutFormat_Toanother_Sheet પસંદ કરો અને મેક્રો માંની વર્કબુક પણ પસંદ કરો.
છેવટે, પસંદ કરેલ મેક્રો ચલાવો.
આમ, તે મૂલ્યો ના ફોર્મેટ<3 સાથે જ પસંદ કરેલ શ્રેણીની કૉપિ કરશે>.
3. ફોર્મેટ અને કૉલમ પહોળાઈ સાથે અન્ય શીટમાં શ્રેણીની નકલ કરો
ક્યારેક તમે કૉપિ કરો કોઈપણ પસંદ કરેલી રેંજને તે જેવી છે, તેના માટે તમે ફોર્મેટ અને કૉલમ પહોળાઈ સાથેની શ્રેણી કોપી કરી શકો છો.
અહીં, હું ડેટાસેટ શીટથી ફોર્મેટ & કૉલમની પહોળાઈ શીટ.
VBA ,
નો ઉપયોગ કરીને કાર્ય કરવાની પ્રક્રિયા જોવા માટે પ્રથમ, વિકાસકર્તા ટેબ >> ખોલો. વિઝ્યુઅલ બેઝિક
તમે VBA એડિટર ખોલવા માટે ALT + F11 કીબોર્ડનો પણ ઉપયોગ કરી શકો છો.
આગળ, તે એપ્લિકેશન માટે Microsoft Visual Basic ની નવી વિન્ડો ખોલશે.
ત્યાં, Insert ખોલો >> મોડ્યુલ પસંદ કરો.
A મોડ્યુલ ખુલશે પછી ખોલેલા મોડ્યુલ માં નીચેનો કોડ લખો.
9159
અહીં, મેં પેટા પ્રક્રિયા Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth
મેં શ્રેણી લીધી છે B1:E10 હાલની શીટમાંથી ગંતવ્ય શીટના નામ પર નકલ કરવા ફોર્મેટ & કૉલમની પહોળાઈ .
અહીં, મેં પસંદ કરેલ શ્રેણીની નકલ કરવા માટે કૉપિ કરો પદ્ધતિનો ઉપયોગ કર્યો છે. મેં PasteSpecial પદ્ધતિનો પણ ઉપયોગ કર્યો છે જ્યાં મેં Paste:=xlPasteColumnWidths નો ઉલ્લેખ કર્યો છે જેથી તે પસંદ કરેલ શ્રેણીને ફોર્મેટ અને કૉલમ પહોળાઈ સાથે પેસ્ટ કરે. .
છેલ્લે, સેવ કોડ અને વર્કશીટ પર પાછા જાઓ.
આગળ, જુઓ ટેબ >> ખોલો. મેક્રોઝ >> મેક્રો જુઓ
➤ એક સંવાદ બોક્સ પૉપ અપ થશે.
હવે, મેક્રો નામ માંથી Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth પસંદ કરો અને માં મેક્રો ની અંદર વર્કબુક પણ પસંદ કરો.
છેવટે, પસંદ કરેલ ચલાવો મેક્રો .
પરિણામે, તે પસંદ કરેલ શ્રેણીને ફોર્મેટ અને કૉલમની પહોળાઈ સાથે કૉપિ કરશે.
4. VBA ફોર્મ્યુલા સાથે અન્ય શીટમાં રેંજની નકલ કરો
જો તમારી પાસે તમારા ડેટાસેટમાં કોઈ ફોર્મ્યુલા હોય તો તમે કોપી કરવા માંગો છો. કોઈ ચિંતા નહી! તમે ફોર્મ્યુલાને અકબંધ રાખીને સૂત્ર ધરાવતી શ્રેણીને બીજી શીટમાં કૉપિ કરી શકો છો.
અહીં, હું ડેટાસેટ શીટમાંથી શ્રેણી કોપી કરીશ WithFormula sheet
ચાલો પ્રક્રિયા શરૂ કરીએ,
શરૂઆત કરવા માટે, વિકાસકર્તા ટેબ >> વિઝ્યુઅલ બેઝિક પસંદ કરો ( તમે ALT + F11 કીબોર્ડ)
આગળનો ઉપયોગ કરી શકો છો એપ્લીકેશન માટે Microsoft Visual Basic ખોલશે.
ત્યાંથી, Insert >> ખોલો. મોડ્યુલ પસંદ કરો.
A મોડ્યુલ ખુલશે પછી ખોલેલા મોડ્યુલ માં નીચેનો કોડ લખો.
4239
અહીં, મેં પેટા પ્રક્રિયા Copy_Range_withFormula_ToAnother_Sheet
મેં શ્રેણી લીધી છે B1:E10 હાલની શીટમાંથી ડેસ્ટિનેશન શીટના નામ WithFormula પર કૉપિ કરવા માટે.
અહીં, મેં પસંદ કરેલી રેન્જની કૉપિ કરવા માટે Copy પદ્ધતિનો ઉપયોગ કર્યો છે. મેં PasteSpecial પદ્ધતિનો પણ ઉપયોગ કર્યો જ્યાં મેં Paste:=xlPasteFormulas નો ઉલ્લેખ કર્યો છે જેથી તે પસંદ કરેલ શ્રેણી સાથે સૂત્રો વહન કરે છે.
છેવટે , કોડ સાચવો અને વર્કશીટ પર પાછા જાઓ.
પછી, જુઓ ખોલો ટેબ >> મેક્રોઝ >> મેક્રો જુઓ
➤ એક સંવાદ બોક્સ પૉપ અપ થશે.
હવે, મેક્રો નામ માંથી Copy_Range_withFormula_ToAnother_Sheet પસંદ કરો મેક્રોમાં માં વર્કબુક પણ પસંદ કરો.
છેવટે, ચલાવો 3 
સમાન વાંચન:
- વીબીએ રેન્જ ઑફસેટનો ઉપયોગ કેવી રીતે કરવો (11 રીતો)
- Excel (3 પદ્ધતિઓ)માં શ્રેણીમાં દરેક સેલ માટે VBA
- એક્સેલમાં VBA ના રેન્જ ઑબ્જેક્ટનો ઉપયોગ કેવી રીતે કરવો (5 પ્રોપર્ટીઝ)
5. ઑટોફિટ સાથે રેંજને બીજી શીટમાં કૉપિ કરો
જ્યારે કોપી એક શ્રેણીને બીજી શીટમાં કૉપિ કરો ત્યારે તમે ઑટોફિટ પદ્ધતિનો પણ ઉપયોગ કરી શકો છો VBA થી AutoFit નવી શીટમાં કૉપિ કરેલી રેન્જમાં.
અહીં, હું ડેટાસેટની શ્રેણી કૉપિ કરીશ શીટ ટુ ઓટોફિટ શીટ
ચાલો પ્રક્રિયા શરૂ કરીએ,
પ્રથમ, વિકાસકર્તા ટેબ >> વિઝ્યુઅલ બેઝિક
તમે VBA એડિટર ખોલવા માટે ALT + F11 કીબોર્ડનો પણ ઉપયોગ કરી શકો છો.
આગળ, તે એપ્લિકેશન માટે માઈક્રોસોફ્ટ વિઝ્યુઅલ બેઝિકની વિન્ડો ખોલશે.
પછી, Insert > ખોલો ;> મોડ્યુલ પસંદ કરો.
A મોડ્યુલ ખુલશે પછી ખોલવામાં નીચેનો કોડ લખો મોડ્યુલ .
2524
અહીં, મેં પેટા પ્રક્રિયા Copy_Range_withFormat_AutoFit
જાહેર કરી છે પ્રથમ, મેં વર્કશીટ ડેટાસેટ પસંદ કરી. પછી AutoFit નામની ગંતવ્ય શીટ પર હાલની શીટમાંથી કૉપિ કરવા માટે B1:E10 રેન્જ લીધી.
અહીં, મેં કૉપિ નો ઉપયોગ કર્યો. પસંદ કરેલ શ્રેણીની નકલ કરવાની પદ્ધતિ અને AutoFit પદ્ધતિ આપેલ કૉલમ્સ B:E માં ઑટોફિટ કરશે.
છેલ્લે, સાચવો કોડ અને જાઓ વર્કશીટ પર પાછા જાઓ.
આગળ, જુઓ ટેબ >> ખોલો. મેક્રોઝ >> મેક્રો જુઓ
➤ એક સંવાદ બોક્સ પૉપ અપ થશે.
હવે, મેક્રો નામ માંથી Copy_Range_withFormat_AutoFit પસંદ કરો મેક્રોમાં ની અંદર વર્કબુક પણ પસંદ કરો.
છેવટે, ચલાવો 3 1>
6. VBA રેંજને બીજી વર્કબુકમાં કૉપિ કરો
જો તમે ઇચ્છો તો તમે એક શીટથી બીજી શીટમાં શ્રેણી કૉપિ પણ કરી શકો છો અલગ વર્કબુકની.
અહીં, હું ડેટાસેટ શીટથી પુસ્તક1 ની શીટ1 ની શ્રેણીની કોપી કરીશ. વર્કબુક.
ચાલો પ્રક્રિયા શરૂ કરીએ,
પ્રથમ, વિકાસકર્તા ટેબ >> ખોલો. વિઝ્યુઅલ બેઝિક પસંદ કરો (y તમે ALT + F11 કીબોર્ડ)
પછી, તે Microsoft Visual ખોલશેએપ્લિકેશન્સ માટે મૂળભૂત.
આગળ, ખોલો Insert >> મોડ્યુલ પસંદ કરો.
A મોડ્યુલ ખુલશે પછી ખોલેલા મોડ્યુલ માં નીચેનો કોડ લખો.
8090
અહીં, મેં પેટા પ્રક્રિયા Copy_Range_WithFormat_Toanother_WorkBook
મેં શ્રેણી લીધી છે B3:E10 શીટના નામમાંથી ડેટાસેટ હાલની શીટમાંથી નવી વર્કબુક નામ બુક1 અને શીટનું નામ શીટ1 .
અહીં, મેં પસંદ કરેલ શ્રેણીને નવી વર્કબુકમાં કૉપિ કરવા માટે કૉપિ કરો પદ્ધતિનો ઉપયોગ કર્યો છે.
છેલ્લે, સેવ કરો કોડ અને વર્કશીટ પર પાછા જાઓ.
આગળ, જુઓ ટેબ >> ખોલો. મેક્રોઝ >> મેક્રો જુઓ
➤ એક સંવાદ બોક્સ પૉપ અપ થશે.
હવે, મેક્રો નામ માંથી Copy_Range_WithFormat_Toanother_WorkBook પસંદ કરો પણ મેક્રોમાં માં વર્કબુક પસંદ કરો.
છેવટે, ચલાવો પસંદ કરેલ મેક્રો .
હવે, તે ડેટાસેટ શીટમાંથી પસંદ કરેલ શ્રેણીને અન્ય વર્કબુકમાં કૉપિ કરશે.
7. અન્ય શીટની છેલ્લી પંક્તિમાં શ્રેણીની નકલ કરો
કોઈપણ સંજોગોમાં, જો તમે શ્રેણીને બીજી શીટમાં કોપી કરવા માંગતા હોવ ચોક્કસ સેલ અથવા છેલ્લા સેલમાંથી તમે VBA નો ઉપયોગ કરીને તે કરી શકો છો.
પ્રક્રિયામાં પ્રવેશતા પહેલા, હું તમને કહેવા માંગુ છું કે, મેં બે નવી શીટ્સ લીધી છે જેમાં પૂરું નામ, ઇમેઇલ, અને સરનામું .
ચાલો પહેલા ડેટાસેટ2 શીટનું અવલોકન કરીએ.
અહીં છેલ્લા સેલની નીચે શીટ છે.
અહીં, હું <માંથી શ્રેણી કોપી કરીશ 2>ડેટાસેટ2
શીટ છેલ્લા કોષની નીચે પરંતુ પ્રથમ બિન-ખાલી કોષમાંથી.શરૂ કરવા માટે, વિકાસકર્તા ટેબ >> ખોલો. વિઝ્યુઅલ બેઝિક
પસંદ કરો પછી, તે ખુલશે એપ્લિકેશન માટે માઇક્રોસોફ્ટ વિઝ્યુઅલ બેઝિક.
પછી, ખોલો શામેલ >> મોડ્યુલ પસંદ કરો.
A મોડ્યુલ ખુલશે પછી ખોલેલા મોડ્યુલ માં નીચેનો કોડ લખો.
6810
અહીં, મેં પેટા પ્રક્રિયા Copy_Range_BelowLastCell_AnotherSheets
પ્રથમ, મેં શીટ પસંદ કરી ડેટાસેટ2 અને પછી છેલ્લી પંક્તિ ની ગણતરી કરવા માટે પંક્તિ પદ્ધતિનો ઉપયોગ કર્યો અને ગણતરી કરેલ પંક્તિને lr માં રાખી.
પછી લેવામાં આવી. શ્રેણી A2:C & lr હાલની શીટમાંથી ગંતવ્ય શીટના નામ પર નકલ કરવા છેલ્લા સેલની નીચે .
ફરીથી, છેલ્લી ગણતરી કરવા માટે પંક્તિ પદ્ધતિનો ઉપયોગ કરો છેલ્લા કોષની નીચે નામની બીજી શીટની પંક્તિ અને ગણતરી કરેલ પંક્તિને lrAnotherSheet માં રાખી.
અહીં, મેં કૉપિ પદ્ધતિનો ઉપયોગ કર્યો. પસંદ કરેલ શ્રેણીની નકલ કરવા માટે અને AutoFit પદ્ધતિ આપેલ કૉલમ્સ A:C ને ઑટોફિટ કરશે.
છેવટે, કોડ સાચવો અને પાછા જાઓ વર્કશીટ પર.
આગળ, જુઓ ટેબ >> ખોલો. મેક્રોમાંથી
