कॉलम में मानदंड वाले कोशिकाओं की श्रेणी को संयोजित करें

मुझे vba concatenate कोशिकाओं के साथ मदद की ज़रूरत है।

मेरे पास एक स्प्रेड शीट है: कॉलम ए में कुछ पंक्तियों के लिए उत्पाद ए जैसे उत्पाद ए, कुछ पंक्तियों के लिए उत्पाद बी, आदि शामिल हैं। मैं उत्पाद ए के लिए कॉलम बी-जे में कक्षों को जोड़ना चाहता हूं, कॉलम के या अन्य शीट के लिए मान लिखें, फिर उत्पाद बी के साथ वही काम करें, और इसलिए स्प्रेडशीट के अंत तक।

मुझे लगता है कि इसे कुछ वीबीए कोडिंग की आवश्यकता होगी जो मैं सीख रहा हूं लेकिन नौकरी करने के लिए अभी तक अच्छा नहीं है। कृपया सहायता कीजिए!

धन्यवाद, CJ

0
जोड़ा संपादित
विचारों: 1
आपका प्रश्न शीर्षक मानदंड का उल्लेख करता है। क्या आप समझा सकते हैं कि इसका मतलब क्या है?
जोड़ा लेखक Siddharth Rout, स्रोत

2 उत्तर

मैंने इसे पढ़ा क्योंकि आप एक ही कॉलम में सबकुछ किसी अन्य सेल में चाहते हैं। यह एक दिनचर्या है जो आपके द्वारा निर्दिष्ट सेल से सभी डेटा ले लेगा, और डेटा में ब्रेक होने तक सबकुछ नीचे जा रहा है

Option Explicit

Function ColConc(CellRef As Range, Delimiter As String)

Dim LoopVar As Long
Dim StartRow As Long
Dim EndRow As Long
Dim Concat As String
Dim Col As Long

Col = CellRef.column
StartRow = CellRef.Row
EndRow = CellRef.End(xlDown).Row

Concat = ""

For LoopVar = StartRow To EndRow
    Concat = Concat & Cells(LoopVar, Col).Value
    If LoopVar <> EndRow Then Concat = Concat & Delimiter
Next LoopVar

ColConc = Concat
End Function

फॉर्मूला = ColConc (A2, "") का उपयोग करके कॉल करें और यह सेल ए 2 से, उस कॉलम के अंत तक, सब कुछ को डिलीमीटर के रूप में प्राप्त करेगा।
डिलीमीटर कोई स्ट्रिंग हो सकता है, ताकि आप डेटा के बीच कुछ भी रख सकें। एक खाली सेल उस डेटा को समाप्त करता है जो इसे एक स्ट्रिंग में संयोजित करने के लिए उपयोग करता है।
यह केवल वर्तमान शीट पर काम करेगा - उस भाग को काम करने के लिए और कोडिंग की आवश्यकता होगी

1
जोड़ा
    
      

मुझे लगता है कि इसे कुछ वीबीए कोडिंग की आवश्यकता होगी

    
  

नहीं, आपको इसके लिए वीबीए की आवश्यकता नहीं है :)

इस सूत्र को K1 में रखें और इसे नीचे खींचें

=B1&" "&C1&" "&D1&" "&E1&" "&F1&" "&G1&" "&H1&" "&I1&" "&J1

यह डेटा को स्पेस के साथ एक डिलीमीटर के रूप में जोड़ देगा। यदि आप अंतरिक्ष नहीं चाहते हैं तो उपर्युक्त फॉर्मूला में संशोधन करें

=B1&C1&D1&E1&F1&G1&H1&I1&J1

इसी तरह यदि आप COMMA के साथ एक delimiter के रूप में concatenate करना चाहते हैं तो इसका उपयोग करें

=B1&", "&C1&", "&D1&", "&E1&", "&F1&", "&G1&", "&H1&", "&I1&", "&J1

और इसी तरह...

1
जोड़ा