Cột thành một hàng với mỗi dữ liệu trong ngoặc đơn

Tôi cần giúp đỡ để thực hiện chuyển đổi sau đây.

Tôi muốn điều tương tự như thế này: Cột 7151 7152 7153 7154 Đến một hàng duy nhất - & gt; (7151)|(7152)|(7153)|(7154)

="("&A1&")|("&A2&")|("&A3&")|("&A4&")"

Nếu phạm vi được sử dụng trong cột A chứa nhiều dữ liệu (hoặc đôi khi thay đổi), bạn nên sử dụng mã vba để tạo kết quả.

Bạn có thể đạt được điều này bằng cách sử dụng chức năng tùy chỉnh mã VBA.

Trong bảng excel của bạn, nhấn ALT + F11 để mở VBA Editor. Từ Menu Tệp chèn một mô-đun và nhấp đúp vào tên mô-đun trong khung bên trái (nếu cần) để mở trình chỉnh sửa mã nguồn. Dán đoạn mã sau vào nó.

 Function TXTJOIN(argument1 As Range)      'Accept input range

   rowcounter = argument1.Rows.Count
   If rowcounter > 255 Then
        TXTJOIN = CVErr(xlErrValue)  'If row counter > 255 return #VALUE! Error
        Exit Function
   End If
   colcounter = argument1.Columns.Count ' Check the number of columns in the input range

   If colcounter = 1 Then  'Process if it's a single column range

        For Each element In argument1
            result = result & "(" & element & ")" & "|"
        Next element

        TXTJOIN = Left(result, Len(result) - 1)
   Else

        TXTJOIN = CVErr(xlErrValue)  'If it's a multicolumn range, return #VALUE! Error
   End If


End Function

Lưu mã và thoát. Nếu bạn đang sử dụng Office 2007 trở lên, bạn sẽ cần lưu sổ làm việc Excel dưới dạng sổ làm việc excel kích hoạt Macro .xlsm.

Bằng cách này, chúng tôi đã tạo ra một chức năng tùy chỉnh được gọi là TXTJOIN.

Sử dụng điều này trong tờ của bạn bây giờ như thể hiện trong hình dưới đây.

Lưu ý rằng chức năng tùy chỉnh này được đơn giản hóa để chỉ hoạt động trên một cột duy nhất. Vượt qua một phạm vi nhiều cột cho nó sẽ trả về #VALUE! Lỗi. Điều này sẽ chỉ hoạt động trong sổ làm việc này vì mã tồn tại trong sổ làm việc này. Ngoài ra, để tránh A: A được truyền cho nó, nó giới hạn tối đa 255 ô để ghép.