在Excel中单列纵向和单行横向数据相同，把这个相同的数据填置到纵向和横向的交汇处上，怎样才能以最

发布网友发布时间：2022-04-26 09:13

共3个回答

热心网友时间：2023-10-09 04:32

Sub Writes()
   Dim MyRow As Integer  '行的值
   Dim MyCel As Integer  '列的值
   Dim Cel As Integer    '有值的列
   Dim i As Integer      '所在工作表

   i = InputBox("请输入所在工作表:")
   MyRow = InputBox("请输入纵向从第几行开始:")
   MyCel = InputBox("请输入横向从第几列开始:")
   Cel = MyCel - 1
   Do While Worksheets(i).Cells(MyRow, Cel) <> ""
       Worksheets(i).Cells(MyRow, MyCel).Value = Cells(MyRow, Cel).Value
       MyRow = MyRow + 1
       MyCel = MyCel + 1
   Loop

End Sub

繁琐些。

热心网友时间：2023-10-09 04:32

选中B2：P16区域，在B2输入公式：

=IF($A2=B$1,$A2,"")
然后按CTRL+回车，完成。追问感谢您给了我学习的机会！一、Win7操作系统，二、纵向和横向的数据不是有规律的，按照您的方法操作后，应该显示的区域不显示，必须通过查找功能查找后才显示。有没有捷径都显示出来？

热心网友时间：2023-10-09 04:33

B2=IF($A2=B$1,B$1,"")