excel中如何提取整行的数据

=A1&B1&C1&D1&E1&F1&G1&H1&I1&J1&K1&L1&M1&N1&O1&P1&Q1&R1&S1&T1&U1&V1
再将值复制到a1单元格内就行了。

把他们的代码链个按钮或指定个快捷键，VBA的用法就是这样的。

VBA又不会，那把我的公式里A,B,C……前面加上$符，然后把这个公式复制到某一列，再把一整列复制粘贴到A列就行了。

请楼下远程教他吧。

会VBA么?
dim a as string
dim rg as range
for each rg in B1:IV1
IF RG<>"" THEN
A= A & RG.TEXT
END IF
NEXT RG
RANGE("a1")=a.text

如果不会VBA,那就全选一整行,复制,粘贴到记事本中.然后再从记事本中复制,粘贴到A1单元格中.

PS:这个动作不太保险啊,风险是Excel 2003的格子只能显示255个字符,超过了就丢失了.如果不是2003就没这个问题.

ALT+F11 粘帖 如下代码， 然后运行此宏

Sub test()
For Each c In Range("b1:AV1").SpecialCells(xlCellTypeConstants)
m = m & " " & c
Next
[a1] = m
End Sub