怎么把第一张表格变成第二章那样子的形式，有什么快速的方法

怎么把第一张表格变成第二章那样子的形式，有什么快速简单的方法吗

这会吧里没人吗

不感兴趣

开通SVIP免广告

数组公式=IFERROR(VLOOKUP($A2&B$1,IF({1,0},Sheet1!$C:$C&DAY(Sheet1!$B:$B),Sheet1!$D:$D),2,),"")

我又重新截图了下，两个表格怎么转换，具体是怎么做的？@zw0783

试一下：C3=IF(ISERROR(VLOOKUP(C$2,Sheet1!$B:$B,1,)),"",VLOOKUP(((DAY(C$2)-COUNTBLANK($B3:B3))-1)*4+$A3,Sheet1!$A:H,8,)) 表2第二行要用日期输入如：2014-9-2，格式自定义为D，即只显示2

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False *关闭屏幕更新
[b3:ae65536].ClearComments *清除区域内批注
[b3:ae65536].ClearContents *清除区域内内容
For i = 3 To Sheets("sheet1").[A65536].End(xlUp).Row *从SHEET1的第三行到最后一行开始逐行循环
For j = 2 To Sheets("sheet2").[iv2].End(xlToLeft).Column *从SHEET2的第2列到最后一列开始逐列循环
For r = 3 To Sheets("SHEET2").[A65536].End(xlUp).Row *从SHEET2的第3行到最后一行开始逐行循环
If Sheets("sheet1").Cells(i, 2) = Sheets("sheet2").Cells(2, j) And Sheets("sheet1").Cells(i, 3) = Sheets("sheet2").Cells(r, 1) Then *判断：如果SHEET1的第I行的第二列等于SHEET2的第二行的第J列并且SHEET1的第I行的第3列等于SHEET2的第R行的第一列，则
Sheets("sheet2").Cells(r, j) = Sheets("sheet1").Cells(i, 8) *SHEET2的第R行的J列的值等于SHEET1的第I行的第8列的值
If Cells(r, j) = "I" Then *判断：如果第R行的J列的值等于I，则
Cells(r, j).AddComment *R行J列的单元格添加批注
Cells(r, j).Comment.Visible = False *批注属性为隐藏
Cells(r, j).Comment.Text Text:=Sheets("sheet1").Cells(i, "g") & Chr(10) *批注内容为当前行G列的值
End If
End If
Next r
Next j
Next i
Application.ScreenUpdating = False *打开屏幕更新
End Sub

转置行吗

透视下
想取得备注，那就只能VBA了

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

14回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六